Opened by payx at 2013-04-12 21:42
User since
2006-05-04
564 Artikel
BenutzerIn
2006-05-04
564 Artikel
BenutzerIn
Hallo,
ich kämpfe mit folgendem Schnipsel:
Unter Windows 7 funktioniert das.
Unter Ubuntu 12.04.2 LTS mit Perl v5.14.2 (built for x86_64-linux-gnu-thread-multi) kommt mit File::Util 3.28 folgender Fehler, aus dem ich nicht schlau werde:
Wenn ich den Dateinamen mit der Regex aus Zeile 15 ermittle, dann geht es, aber dann ist es ja nicht mehr portabel.
Danke im Voraus für erhellendes
und viele Grüße
payx
Last edited: 2013-04-12 21:44:10 +0200 (CEST)
ich kämpfe mit folgendem Schnipsel:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl use strict; use warnings; use File::Util; my $fu = File::Util->new(); my $dir = '/usr/bin/'; for my $file ($fu->list_dir($dir, qw(--files-only --recurse))) { my $fileName = $fu->atomize_path($file); #my ($fileName) = ($file) =~ m/\/([^\/]+$)/; # so geht's! print "$fileName\n"; }
Unter Windows 7 funktioniert das.
Unter Ubuntu 12.04.2 LTS mit Perl v5.14.2 (built for x86_64-linux-gnu-thread-multi) kommt mit File::Util 3.28 folgender Fehler, aus dem ich nicht schlau werde:
Code: (dl
)
1
2
3
4
Can't locate auto/File/Util/atomize_pat.al in @INC (@INC contains:
/etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2
/usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14
/usr/local/lib/site_perl .) at test_atomize.pl line 14
Wenn ich den Dateinamen mit der Regex aus Zeile 15 ermittle, dann geht es, aber dann ist es ja nicht mehr portabel.
Danke im Voraus für erhellendes
und viele Grüße
payx
Last edited: 2013-04-12 21:44:10 +0200 (CEST)