hi,
mein script läuft glaube ich nicht
#!/usr/bin/perl
my $file = "test.pl";
my $modify = stat($file[9]);
my $mod_stunden = int($modify / 3600);
if ($mod_stunden > 1){
print "\nVORSICHT!! Die Datei wurde zuletzt vor ".$mod_stunden." bearbeitet\n";
}else{
print "\nALLES OK!! Die Datei wurde zuletzt vor ".$mod_stunden." Stunden bearbeitet\n";
}
wenn ich
print stat($file[9]);
mache, bekomme ich die Sekunden.. wenn ich es in eine Variable schreibe, kommt einfach nur eine "1" raus ??
und somit ist die umrechnung in stunden immer = 0
das perl script auf selfhtml läuft bei mir auch nicht :(
http://selfhtml.teamone.de/cgiperl/funktionen/dateiverwaltung.htm#stat