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;
...
rgolub
Last Activity: Mar 28 '08, 06:49 PM
Joined: Mar 3 '08
Location:
-
-
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 "..")))...Leave a comment:
-
Age of the file
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 - $ct...
No activity results to display
Leave a comment: