perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 34
 Click for quality!



10.02.2012 / 10:10
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragZeitstempel abfragen
 Seitenanfang
Hallo also das Script soll mir nur die aktuellen Dateien sprich von aktuellem Datum und ein Tag zurück ausgeben keine älteren. Leider bringt er alle Dateien auch die älteren! Könnte mal jemand sagen ob ich eventuell die Abfrage falsch gestellt habe???

sub existsActBackup {
my ($file,$max_age) = @_;
my $tmpValue = 0;
print LogDatei $tm ;
print LogDatei "file stat($file)\n";
print LogDatei "file2 $file \n";
my $age = (time - (stat($file))[10]) / (60 * 60 * 24); ###Hier an der Stelle wird oder sollte gefiltert werden!
if ($age < $max_age) {
$tmpValue = 1;
} else {
$tmpValue = 0;
}
return $tmpValue;
}

Danke

Datum: 06.12.2005-10:25
Beitragre: Zeitstempel abfragen
 Seitenanfang
Hi,

meine Abfrage ist doch OK habe meinen kleinen Denkfehler gefunden !! Hätte mal ein Print einbauen sollen in der Abfrage! :-)

Datum: 06.12.2005-12:30
-






-
 -