Opened by leissi at 2005-08-23 14:37
User since
2005-07-06
84 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-07-06
84 Artikel
BenutzerIn
Hallo,
ich schreibe an einer Prüfroutine die mir aus einem bestimmten Verzeichnis die Dateien filtert die nicht älter als 1 Tag sind!
Und hier habe ich auch noch zur Ermittlung der Systemzeit was geschrieben:
my ($mday, $mon, $year, $hour, $min) = (localtime($st_atime))[3..5];
$datum = sprintf ("%02d-%02d-%4d_%02d:%02d", $mday, $mon +1, $year + 1900);
print $datum."\n";
Danke für Eure Hilfe!!
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1124796090-->
ich schreibe an einer Prüfroutine die mir aus einem bestimmten Verzeichnis die Dateien filtert die nicht älter als 1 Tag sind!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
$bkupDirectory = " Pfad wo Datei liegt";
$backupAge = 1;
print &existsActBackup($bkupDirectory, $backupAge);
# existsActBackup
# ----------------------------------------------------
# Diese Routine prüft, ob ...
# wenn 'ja', dann gibt die Routine die Zahl 1 zurück
# wenn 'nein', dann die Zahl 0
# ----------------------------------------------------
sub existsActBackup {
$tmpValue = 0;
if (-z @_[0])
{
$tmpValue = 1;
} else {
$tmpValue = 0;
}
$rValue = $tmpValue
}
# Ermittle die Liste aller BAK-Files im Verzeichnis $bkupDirectory
# setze den Rückgabewert auf 0
# Für jede Datei dieser Liste:
# > ermittlere ihren Zeitstempel
# > prüfe, ob dieser >= CURRENT_DATE - $backupAge ist
# wenn 'ja', dann kann die Abarbeitung der Liste beendet werden und die Prozedur muß den Wert 1 zurückgeben
# wenn 'nein', dann muß die Liste weiter durchsucht werden.
# Gebe Wert zurück.
Und hier habe ich auch noch zur Ermittlung der Systemzeit was geschrieben:
my ($mday, $mon, $year, $hour, $min) = (localtime($st_atime))[3..5];
$datum = sprintf ("%02d-%02d-%4d_%02d:%02d", $mday, $mon +1, $year + 1900);
print $datum."\n";
Danke für Eure Hilfe!!
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1124796090-->