«

Hi,

I'm using File::stat to get the last mod time of a file:

my $sb = stat $file;
my $lmod = $sb->mtime;

Now I would like know how many minutes ago (from now) was that file
modified. Can it actually be done?

thanks

Larry schreef:

> my $sb = stat $file;
> my $lmod = $sb->mtime;
>
> Now I would like know how many minutes ago (from now) was that file
> modified. Can it actually be done?

for f in stat time; do perldoc -f $f; done

--
Affijn, Ruud

"Gewoon is een tijger."

"Larry" <> wrote in message
news:dontmewithme-...
> Hi,
>
> I'm using File::stat to get the last mod time of a file:
>
> my $sb = stat $file;
> my $lmod = $sb->mtime;
>
> Now I would like know how many minutes ago (from now) was that file
> modified. Can it actually be done?

Since both time now and time thern are given in seconds (since the epoch
which varies by system), a bit of basic mathematics derives the result.

P

Larry wrote:
>
> I'm using File::stat to get the last mod time of a file:
>
> my $sb = stat $file;
> my $lmod = $sb->mtime;
>
> Now I would like know how many minutes ago (from now) was that file
> modified. Can it actually be done?

my $minutes_last_modified = 1440 * -M $file;



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall

In article <AHXMk.8581$>,
"Peter Wyzl" <> wrote:

> Since both time now and time thern are given in seconds (since the epoch
> which varies by system), a bit of basic mathematics derives the result.

in fact I got this:

use File::stat;

my $file = "Mondo.pdf";
my $sb = stat $file;
my $lmod = $sb->mtime;
my $tnow = time;

my $diff = $tnow - $lmod;

Is there anyway to sprintf the $diff value to rappresent: hours, mins,
secs ??

thanks

On 2008-10-26 13:08, John W. Krahn <> wrote:
> Larry wrote:
>> I'm using File::stat to get the last mod time of a file:
>>
>> my $sb = stat $file;
>> my $lmod = $sb->mtime;
>>
>> Now I would like know how many minutes ago (from now) was that file
>> modified. Can it actually be done?
>
> my $minutes_last_modified = 1440 * -M $file;

Nope. -M computes the difference between the modification time and the
time the program was started. There may be a considerable difference
between "when the program was started" and "now".

hp

Larry <> wrote:
>Is there anyway to sprintf the $diff value to rappresent: hours, mins,
>secs ??

Not to make too fine a point but isn't that basic arithmetic at second
grade level?
Of course, there is always Time::Format, too.

jue

In article <>,
J?rgen Exner <> wrote:

> Not to make too fine a point but isn't that basic arithmetic at second
> grade level?

well, I actually am doing the following:

use File::stat;

my $file = "time.pl";
my $sb = stat $file;
my $lmod = $sb->mtime;
my $tnow = time;

my $diff = $tnow - $lmod;

my ($sec,$min,$hour) = (localtime($diff))[0,1,2];

my $time = sprintf( "%1d hr %1d mins %1d secs", $hour - 1, $min, $sec );

Now, I would like to keep showing hours like 25,26 etc... (not days) any
ideas?

thanks

Larry <> wrote:
>In article <>,
> J?rgen Exner <> wrote:
>
>> Not to make too fine a point but isn't that basic arithmetic at second
>> grade level?
>
>Now, I would like to keep showing hours like 25,26 etc... (not days) any
>ideas?

Seconds modulo (60*60)?

jue

In article <>,
J?rgen Exner <> wrote:

> Seconds modulo (60*60)?

I really don't get that. What I'm trying to do is:

59 secs

1 min 0 secs

59 min 0 secs

1 hr 0 min 0 secs

24 hr 0 min 0 secs

25 hr 0 min 0 secs