topic Perl script not working as expected in Operating System - HP-UX

Perl script not working as expected

KAKA_2 — Mon, 28 Jun 2010 07:39:45 GMT

Hi Experts,

I want to check if a file how old is the file. to check this the simple code is as below.

##############################################
#!/usr/bin/perl

$file="/tmp/access_test_log";
my($SECS) = 24*60*60; #seconds in a day

my $ageinsecs = int((-M $file)* $SECS);
print "value of age in secs is $ageinsecs";
##############################################
output is as below:
value of age in secs is 0

Where ls -l /tmp/access_test_log
-rw-r----- 1 root system 0 Jun 21 15:39 /tmp/access_test_log

so if we see actually it is very old file but output say 0. Can some one help me to fix the issue???

KAKA

Re: Perl script not working as expected

john korterman — Mon, 28 Jun 2010 08:22:22 GMT

Hi KAKA,

I also get "0" for a non-existing file. You probably have an invisible character somewhere in the file name path.

regards,
John K.

Re: Perl script not working as expected

KAKA_2 — Mon, 28 Jun 2010 08:33:37 GMT

I dont see any such invisible character in the file path name.

Is there other way around to check how old is file???

KAKA

Re: Perl script not working as expected

James R. Ferguson — Mon, 28 Jun 2010 11:59:39 GMT

Hi:

Generalize your script and be defensive:

# cat ./myage
#!/usr/bin/perl
use strict;
use warnings;
my $file = shift or die "filename expected\n";
die "'$file' doesn't exist\n" unless -f $file or -d $file;
my $SECS = 24 * 60 * 60; #seconds in a day
my $ageinsecs = int( ( -M $file ) * $SECS );
print "value of age in secs is $ageinsecs\n";

# ./myage "file with spaces in name"

# ./myage myfile

# ./myage /tmp

Regards!

...JRF...

Re: Perl script not working as expected

KAKA_2 — Tue, 29 Jun 2010 07:04:08 GMT

you are great. It solved my issue. Thank You.
KAKA