Verzeichnisbaum rekursiv auslesen: Liste der Dateien eines Verzeichnisbaums - #178024 (Windows)

Matze2.pl

2014-10-30 16:49

User since
2014-10-30
23 Artikel
BenutzerIn
[default_avatar]

Hallo, Ich bin auch ein Anfänger im Perl scripten und ich brauch eure Hilfe.
Ich sitzte schon seid einigen Tagen an einem Script, dass unteranderem das Alter von Verzeichnissen ausgeben soll. Und zwar hab ich eine solche ordnerstruktur:
20/2013/bla/bla/bla/bla
20/2014/bla/bla/bla/bla
20/2015/bla/bla/bla/bla

21/2113/bla/bla/bla/bla
21/2114/bla/bla/bla/bla
21/2115/bla/bla/bla/bla

jetzt möchte ich das neueste Änderungsdatum der 4-Zahligen ordner haben.
dafür habe ich folgenden Code genommen:

Code (perl): (dl )

my @projekttiefe=glob("/var/lib/testverzeichnis/Projekte/Projektenummern/*/*/");
 foreach $filename(@projekttiefe)
{
$alter = -M "$filename";
$kurzalter = sprintf "%.0f",$alter;}

Problem dabei war das er nur in dem ersten Unterverzeichnis geguckt hat.
ich habe es mit Rekursiv auslesen versucht aber da gibt er mir alles Dateien aus.

Code (perl): (dl )

my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*";

foreach $dir (@dirs)

{
print "$dir\n";

opendir (DIR, $dir);
{find(\&wanted,$dir);
}

sub wanted
{
 my $file = $File::Find::name;
  push(@files,$file) if(-f $file and -M $file > 0);

}
 closedir (DIR);
foreach $files (@files)
{
print "$files\n";
}
}

kann mir jemand helfen? (ich weiß blöd ausgedrückt :/
Last edited: 2014-10-30 16:54:58 +0100 (CET)