Levent: anfänger script.. dateihandling

Beitrag lesen

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