Opened by jogi at 2007-08-04 15:23
User since
2007-07-25
55 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-07-25
55 Artikel
BenutzerIn
Hi!
Im Verzeichnis $dir siehts so aus:
7EA6EAD6FD83083C538F44038BBFA077587DD755
847B1F850344D7876491A54892F904934E4EB85D
719BE45DE224B607C53707D0E2143E2D423E74CF
FFCB46DB1339DA84674C70D7CB586434C4370441
$info[8] enthält das Änderungsdatum.
Ich brauche nun die Datei, die zuletzt geändert wurde. Wie finde ich das am intelligentesten heraus? Einfach mit sort() oder fällt jemandem ne bessere Methode ein?
Ciao,
jogi
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
my $dir = "C:\\Dokumente und Einstellungen\\ich\\Anwendungsdaten\\tor\\cached-status\\";
opendir (DIR, "$dir") or die $!;
my @entries = readdir(DIR);
close (DIR);
foreach my $zeile (@entries) {
next if $zeile =~ /\./;
$zeile = $dir . $zeile;
my @info = stat($zeile);
print "$info[8]\n";
}
Im Verzeichnis $dir siehts so aus:
7EA6EAD6FD83083C538F44038BBFA077587DD755
847B1F850344D7876491A54892F904934E4EB85D
719BE45DE224B607C53707D0E2143E2D423E74CF
FFCB46DB1339DA84674C70D7CB586434C4370441
$info[8] enthält das Änderungsdatum.
Ich brauche nun die Datei, die zuletzt geändert wurde. Wie finde ich das am intelligentesten heraus? Einfach mit sort() oder fällt jemandem ne bessere Methode ein?
Ciao,
jogi