Suchfunktion
Erfahrenes Mitglied
Hallo,
ich habe gerade erst angefangen mit Perl, von daher habe ich erst ca. 30min Wissen in der Sprache. Ich habe mit jetzt ein Script geschrieben, in das ich eine Artikelbezeichnung eingeben kann und das mich dann nach den Seriennummern fragt.
Die Daten werden dann alle in einer Textdatei abgespeichert.
(Fuer den Wareneingang bei uns in der Firma. Eigentlich mehr so Just4Fun als wirklich benoetigt.. wollte nur etwas sinnvolles programmieren ;-) )
Momentan ist es leider nicht moeglich, mehrere Artikel in einem Durchgang einzufuegen, also nach jedem Artikel muss man das Script neu starten.
Wie mache ich es, dass ich bei #->GoTo Point1 zu #->Sprungmarke Point1 (und das selbe mit Point2 und Point3) geleitet werde?
Ich kenne das von VB mit GoTo, aber weiss aus erfahrung, dass GoTo's nicht sehr professionell sind, also ist alles erlaubt, was geht ;-)
Thanks!
ich habe gerade erst angefangen mit Perl, von daher habe ich erst ca. 30min Wissen in der Sprache. Ich habe mit jetzt ein Script geschrieben, in das ich eine Artikelbezeichnung eingeben kann und das mich dann nach den Seriennummern fragt.
Die Daten werden dann alle in einer Textdatei abgespeichert.
(Fuer den Wareneingang bei uns in der Firma. Eigentlich mehr so Just4Fun als wirklich benoetigt.. wollte nur etwas sinnvolles programmieren ;-) )
Momentan ist es leider nicht moeglich, mehrere Artikel in einem Durchgang einzufuegen, also nach jedem Artikel muss man das Script neu starten.
Code:
$file = 'C:\serial.txt';
$i = 1;
$sn = "";
open(INFO, ">>$file");
print "Artikel: ";
$name = <STDIN>;
chomp($name);
my $filesize = -s $file;
if ($filesize >= 1) {
print INFO "\n";
print INFO "\n";
print INFO "\n";
}
#->Sprungmarke Point1
print INFO "[--- $name ---] \n";
print "\n";
print "Seriennummern fuer $name eingeben\n";
while ($sn ne "q") {
print 'SN '.$i.': ';
$sn = <STDIN>;
chomp($sn);
if ($sn ne "q" && $sn ne "") {
print INFO "$sn#\n";
$i++;
}
}
$artikelanzahl = $i - 1;
print INFO "\n";
print INFO "\n";
print INFO "$artikelanzahl Artikel erfasst.\n";
#->Sprungmarke Point3
print "Weiteren Artikel anlegen [j/n]: ";
$again = <STDIN>;
chomp($again);
if ($again == "j") {
print "\n";
print "\n";
print INFO "\n";
print INFO "\n";
#->GoTo Point1
} elseif ($again == "n") {
#->GoTo Point2
} else {
#->GoTo Point3
}
#->Sprungmarke Point2
close(INFO);
Wie mache ich es, dass ich bei #->GoTo Point1 zu #->Sprungmarke Point1 (und das selbe mit Point2 und Point3) geleitet werde?
Ich kenne das von VB mit GoTo, aber weiss aus erfahrung, dass GoTo's nicht sehr professionell sind, also ist alles erlaubt, was geht ;-)
Thanks!