Opened by laplace at 2011-10-09 21:22
User since
2006-01-27
3891 Artikel
HausmeisterIn
2006-01-27
3891 Artikel
HausmeisterIn
Hi,
noch ein paar Anmerkungen...
noch ein paar Anmerkungen...
- die Ausgabe von $1 bringt wenig bei einem misslungenen open(); ich vermute einen Tippfehler und Du meintest wahrscheinlich $!.
- Das open mit 3 Argumenten ist noch besser und sicherer: open my $handle, '<', $filename or die "..:$!";
- Es sollte besser eine while-Schleife sein, um wiederholt aus einem Handle zu lesen, keine foreach Schleife
- Den Test auf "Digit" würde ich verankern, sonst trifft das auch auf Zeilen zu, die Text und Ziffern enthalten (die echten Daten könnten das beinhalten...)
- Der Test mit /\w+/ ist auch erfolgreich bei Ziffern und Unterstrich, ist das so gewollt?
- Warum beendest Du das Skript mit einem Exitcode != 0 (Null)? Warum soll es ein Fehler sein, wenn es das Ende der Datendatei erreicht hat? Ich würde das exit 1; rauswerfen.
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!