Hallo Daniel,
mit dieser Zeile 3 wird es nicht funktionieren:
2011-10-04T13:38:54
dgw
open( my $fh , '<' , 'beispiel.txt' ) ;
Dafür aber so:
open( my $fh , '>' , 'beispiel.txt' ) ;
Sicher nur ein Tippfehler – apropos Tipp – Tipp:
use warnings; ;-)
Grüße
payx