Informationen aus Datei lesen und formatieren (gelöst) - #168767 (Allgemeines zu Perl)

FIFO

2013-07-07 06:57

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Wenn die Markierungen '9999' etc. immer am Anfang der Ziffernfolge stehen, musst Du die Vergleiche übrigens anders schreiben:

Code (perl): (dl )

1
2
3

    if ($hansLine =~ /\A HANS \D* 9999 (\d{3}) /x) {
        # ...
    }

Also HANS, gefolgt von beliebig vielen Nicht-Digits, usw.
Das gleiche natürlich auch bei DAMPF.

Ansonsten würde z.B. 'HANS 8888999912345' beim ersten Vergleich gematcht, da es ja '9999' enthält.

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"