Da sind 2 Sachen, die ich persönlich ein bisserl unhübsch finde.

while ( my $line = <STDIN> ) {  suggeriert beim Lesen eine Abbruchbedingung, ist aber keine. Dann würd ich das auch klar machen.

edit: hat sich erledigt und kann ignoriert werden.


Und das 2. ist, dass "! $line" z.B. auch bei "0" zutrifft. Ich würd zumindest ein "length($line)" nehmen
Last edited: 2014-02-17 14:01:34 +0100 (CET)