Lieber Besucher, herzlich willkommen bei: GentooForum.de.
Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert.
Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können.
Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang.
Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
[gelöst] Script zur Berechnung von EAN13 Prüfziffern gesucht
Hi,
da ich leider keinerlei Ahnung vom Programmieren habe wende ich mich ans Forum.
Ich bin auf der Suche nach einem Script, in dass ich ca 2000 EAN Nummern (12 stellig) laden kann und das script mir die Prüfziffer generiert.
Also vom logischen Ablauf her:
READ 130123456789
BERECHNE PRÜFZIFFER (Algorithmus) = X
WRITE 130123456789X
Falls jemand so etwas für mich hat - spitze !
Falls jemand so etwas schnell für mich schreiben kann - super !
Falls mich jemand in die richtige Richtung lenken kann - klasse !
Danke !
dzubke
Open your mind - this will open the world for you.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »dzubke« (14.10.2005, 15:58)
RE: Script zur Berechnung von EAN13 Prüfziffern gesucht
Hi,
Folgendes script liest von STDIN 12stellige zahlen ein und gibt sie mit pruefziffer wieder aus.
ean13.pl:
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#! /usr/bin/perl
use warnings;
use strict;
while(<STDIN>) {
chop;
print $_ . &ean_checksum($_) . "\n";
}
sub ean_checksum {
my $ean = $_[0];
my $chksum = 0;
my $i = 0;
for my $e (split(//,$ean)) {
my $j = ord($e)-ord('0');
my $v;
if ($i % 2 == 0) {
$v=$j;
} else {
$v=3*$j;
}
$chksum += $v;
$i ++;
}
$chksum = $chksum % 10;
return (10 - $chksum) % 10;
}
|
HTH
Gruesse
Hallo bem,
vielen Dank !!!
Ich werde das heute abend ausprobieren ... vielleicht motiviert es mich ja auch Perl zu lernen
Cheers
dzubke
Open your mind - this will open the world for you.
Hallo bem,
Test erfolgreich durchgeführt - ich finde es einfach Spitze, dass Du so schnell geholfen hast.
Eine kleine Frage habe ich noch:
Wenn ich aus einer Datei xxx.txt lesen und in eine Datei yyy.txt schreiben möchte - wie muss ich Dein Script abändern, bzw. wie müsste ich mit dem Script arbeiten ?
Die Motivation mich mit Perl in meinem nächsten Urlaub zu beschäftigen ist übrigens stark gestiegen !
Danke schon mal vorab für Deine Hilfe.
Gruss
dzubke
Open your mind - this will open the world for you.
Hallo nochmal,
was du willst laesst sich ganz einfach mit
|
|
Quellcode
|
1
|
./ean13.pl < xxx.txt > yyy.txt
|
loesen, solang in xxx.txt pro zeile ein barcode steht
Gruesse
bem
Hallo Bem,
daran hatte ich nicht gedacht
-.
Nochmals danke !
Cheers
dzubke
Open your mind - this will open the world for you.
