In einem Verzeichnis Die neueste Datei finden (gelöst) - #178074 (Allgemeines zu Perl)

Matze2.pl

2014-11-03 17:08

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

Also damit ihr wisst was ich vorhabe:
Wir haben im Büro sehr viele Projekte am laufen die natürlich auch iwann archiviert werden wollen. Um zu wissen wann Projekte länger als 90 Tage nicht angefasst wurden, muss ich halt herrausfinden ob darin noch gearbeitet wird (wesshalb ich das neuste änderungsdatum haben will).
Ich versteh das was Ihr mir als Hilfe gebt nur kann ich es irgendwie nicht richtig umsetzen. die Verzeichnisstruktur ist /laufwerk/Einordnung(12)/Projekt(1234) so in 12 sind noch ganz viele andere Projekte.

Hiermit habe ich versucht die neusten DAtein zu finden:

Code (perl): (dl )

my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*";
foreach $dir (@dirs)
{

open (DIR,">>/var/lib/testverzeichnis/Projekte/tot.txt");
print DIR "\n$dir: \n";
print DIR newestDate("$dir");
close (DIR)

}
sub newestDate 
                                                                                                                                {                                                                                                                               
                                                                
$path = shift;
                                                        
opendir( $DH, $path);
return(
(map{$_->[0]}                                                   
sort {$a->[1] <=> $b->[1]}
map{[$_, -M "$path/$_"]} 
                                                                
readdir $DH
                                                                
)[0]);
                                                                
}

als ausgabe steht dann in meiner .txt :
/var/lib/testverzeichnis/Projekte/Projektenummern/12/1234:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/12/1235:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/12/1236:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/12/1255:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/12/1275:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/13/1345:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/13/1346:
1346.txt
/var/lib/testverzeichnis/Projekte/Projektenummern/13/1347:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/13/1355:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/14/1456:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/14/1457:
.
/var/lib/testverzeichnis/Projekte/Projektenummern/14/1458:
1
/var/lib/testverzeichnis/Projekte/Projektenummern/18/1805:
txt.txt
/var/lib/testverzeichnis/Projekte/Projektenummern/18/1809:
1
/var/lib/testverzeichnis/Projekte/Projektenummern/19/1910:
alter.pl
/var/lib/testverzeichnis/Projekte/Projektenummern/19/1973:
alles.txt

Aber ich denke damit kann ich nicht das Datum dieser "Datei" herrausbekommen da manches ja Ordner sind.
Kann ich hier:
/var/lib/testverzeichnis/Projekte/Projektenummern/19/1973:
alles.txt
den Pfad der ausgeben lassen?