in reply to time difference
Untested code follows ... Update: Bugger, caught out on inode change/creation time - Remember that (stat _)[10] (or -C _) is not file creation time, but rather inode change time.
sub diff { return -1 unless -e $_[0]; my @result = (); my $diff = ((stat _)[10]) - ((stat _)[9]); foreach my $time ((86400, 3600, 60, 1)) { push @result, $diff % $time; $diff -= $result[-1]; } return @result; }
perl -le "print unpack'N', pack'B32', '00000000000000000000001000000000'"
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: time difference
by mifflin (Curate) on Aug 01, 2005 at 05:02 UTC | |
by merlyn (Sage) on Aug 01, 2005 at 05:21 UTC | |
by BrowserUk (Patriarch) on Aug 01, 2005 at 05:42 UTC | |
by merlyn (Sage) on Aug 01, 2005 at 06:00 UTC | |
by BrowserUk (Patriarch) on Aug 01, 2005 at 06:39 UTC |
In Section
Seekers of Perl Wisdom