1. Es ist kein AUsgabetrenner angegeben worden in Zeile 18.
my $csv=Text::CSV->new( { eol => $/ } );
2. Es fehlt
find(\&wanted, $verzeichnis);
in Zeile 21.
//EDIT: Jedenfalls klappt es bei mir dann unter Windows 7.
Last edited: 2012-05-24 09:23:19 +0200 (CEST)