Wie immer in solchen Fällen, eine zu starke Verkürzung. Nimm als RE einafach statt if $line =~ /^.*$/ einfach if $line =~ /^irgendwas$/, da der . das 0D auffrisst.

Dann kann man unter Linux auch schön den Unterschied zwischen

perl -E 'open my $fh, "<", "datei.txt"; my $line = <$fh>; say "passt" if $line =~ /^irgendwas$/'
und
perl -E 'open my $fh, "<:crlf", "datei.txt"; my $line = <$fh>; say "passt" if $line =~ /^irgendwas$/'
sehen.

PS: Und nur dass ich online war, sagt nicht, dass ich gerade Lust/Zeit hatte zu antworten!
Last edited: 2013-06-04 23:01:21 +0200 (CEST)