Opened by Matze2.pl at 2014-10-31 15:48
User since
2014-10-30
23 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2014-10-30
23 Artikel
BenutzerIn
Ich habe es mit deiner Sub versucht aber bekomme es leider nicht zum laufen :(
Ich habe es so versucht:
bei mir kommte aber immer folgende Meldung:
Use of uninitialized value $path in opendir at ./alter.pl line 35.
readdir() attempted on invalid dirhandle $DH at ./alter.pl line 39.
Wie gesagt bin recht neu beim perlskripten und steig noch nicht hinter alles. Könnt ihr mir sagen wo ich einen Fehler gemacht habe?
Ich habe es so versucht:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/12/1234"; foreach $dir (@dirs) { find(\&newestDate,$dir) ; } sub newestDate { my $path = shift; opendir(my $DH, $path); return( (map {$_->[0]} sort {$a->[1] <=> $b->[1]} map{[$_, -M "$path/$_"]} readdir $DH )[0]); }
bei mir kommte aber immer folgende Meldung:
Use of uninitialized value $path in opendir at ./alter.pl line 35.
readdir() attempted on invalid dirhandle $DH at ./alter.pl line 39.
Wie gesagt bin recht neu beim perlskripten und steig noch nicht hinter alles. Könnt ihr mir sagen wo ich einen Fehler gemacht habe?