Hmm, very interesting. Which unix platform is giving you problems? It worked fine on linux and solaris for me. If I had to guess, I'd say that maybe your hardware clock is not in synch with your system time. Another option is to use the  -M file test. It returns the value you're looking for in days. Multiplying that by 24, 60, and then 60 again brings it back to seconds. See below, though, because the two methods don't agree. Well, see if this helps anyway: 

#!/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";

[download]

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.)

In reply to Re: Unix date/time variance by pepik_knize
in thread Unix date/time variance by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.