in reply to Unix date/time variance
#!/usr/bin/perl -w use strict; system ("ls"); print "file? "; chomp (my $file = <>); my $lockfile_epoch = (stat($file))[9]; my $current_epoch = time(); my $sttime = $current_epoch - $lockfile_epoch; # using stat print "$sttime\n"; my $fttime = (-M $file)*24*3600; # using file test print "$fttime\n";
Pepik
Of all the causes that conspire to blind
Man's erring judgment, and misguide the mind,
What the weak head with strongest bias rules,
Is pride, the never-failing vice of fools.
-- Pope.
(Humble to be American.)
|
|---|