Age of the file

[rgolub]

I am trying define age of the file in seconds. If file > 900 (15 minutes), I would like get an alert. OS is Windows. For some reason I am getting negative number when I compare System time with file time.

[CODE=perl]if( -f "$Dir/$FileName" ) {
my($dev,$ino,$m ode,$nlink,$uid ,$gid,$rdev,$si ze,$atime,$mtim e,$ctime,$blksi ze,$blocks) = stat("$Dir/$FileName");
my $time_diff = ($now - $ctime);[/CODE]

Time_diff variables is always negative number/

Please advise.
Regards

[KevinADC]

I am trying define age of the file in seconds. If file > 900 (15 minutes), I would like get an alert. OS is Windows. For some reason I am getting negative number when I compare System time with file time.

if( -f "$Dir/$FileName" ) {
my($dev,$ino,$m ode,$nlink,$uid ,$gid,$rdev,$si ze,$atime,$mtim e,$ctime,$blksi ze,$blocks) = stat("$Dir/$FileName");
my $time_diff = ($now - $ctime);

Time_diff variables is always negative number/

Please advise.
Regards

for right now do this and what values are printed for $ctime and $now:

if( -f "$Dir/$FileName" ) {
      my($ctime) = (stat("$Dir/$FileName"))[10];
      print "ctime = $ctime , now = $now\n"
}

I assume $now is the value of time:

$now = time;

[rgolub]

thank you for you respond,

I don't get value of ctime, please see code below:
-----------------------------------------------------------------------------------
[CODE=perl]opendir(DIR,$di r_to_open) || die("Cannot open directory !\n");

@dir_contents= readdir(DIR);
closedir(DIR);

foreach $file (@dir_contents)
{
if(!(($file eq ".") || ($file eq "..")))
{
my($ctime) = (stat("$file"))[10];
print "ctime = $ctime\n";
}
}[/CODE]
--------------
Getting ctime:
ctime =
ctime =
ctime =
ctime =
ctime =
ctime =
I am not sure what I am doing wrong, I am not strong with perl.
Thank you again for your help
Regards

[nithinpes]

The argument for stat() should contain absolute path to the file.
Modify:

my($ctime) = (stat("$file"))[10];

to

my($ctime) = (stat("$dir_to_open/$file"))[10];

[rgolub]

I am getting a syntax error:

[CODe=perl]#!/usr/bin/perl

use Time::localtime ;
use Time::Local;

opendir(DIR,$di r_to_open) || die("Cannot open directory !\n");
@dir_contents= readdir(DIR);
closedir(DIR);

foreach $file (@dir_contents)
{
if(!(($file eq ".") || ($file eq "..")))
{
my $now = time;
my ctime = (stat($dir_to_o pen/$file)) [10];
my $time_diff = ($now - $ctime);
print "$file > Ctime: $ctime Diff: $time_diff\n";
}
}[/CODE]

No such class ctime at bs.pl line 33, near "my ctime"
syntax error at bs.pl line 33, near "my ctime ="
Execution of bs.pl aborted due to compilation errors.

[eWish]

rgolub,

When posting code here you are expected to use the [code][/code] tags. Please read the post at the top of the forum "Guidelines To Ensuring Better Answers and Assistance To Your Thread(s)"

--Kevin

[eWish]

You forgot the '$' on the variable ctime.

[CODE=perl] my $ctime = (stat($dir_to_o pen/$file)) [10];[/CODE]
--Kevin

[KevinADC]

The argument for stat() should contain absolute path to the file.
Modify:

my($ctime) = (stat("$file"))[10];

to

my($ctime) = (stat("$dir_to_open/$file"))[10];

Thanks, I see I forget to mention he needs to insert the path and filename into the stat function.