Re: Modifiaction time of file
- From: shawnhcorey@xxxxxxxx (Mr. Shawn H. Corey)
- Date: Fri, 28 Apr 2006 12:23:42 -0400
On Fri, 2006-28-04 at 08:51 -0700, anu p wrote:
Hi,
I have a requirement where I need to look at the age
of file, if it's older than 2 days, I should remove
it.
I am trying to use the '-M ' filehandle in my script,
it does not work.
I get the following error
Use of uninitialized value in numeric gt (>) at
./temp_age.pl line 12.
#!/usr/bin/perl
use strict;
use warnings;
my $fail_dir =
"/home/anupamaperi/failed_tests/regress_26";
my ($file, $age);
opendir (DIR, $fail_dir) || die "cannot open, no
$fail_dir dir $!";
while ($file = readdir (DIR)) {
while( defined( $file = readdir DIR )){
next unless -f "$fail_dir/$file";
# readir() returns all directory entries including:
# files, directories, symbolic links, pipes,
# special character devices, special block devices
# You should limit your code to just regular files
# or regular files and symbolic links.
# See `perldoc perlfunc` and search for 'Alphabetical Listing of Perl
Functions'
# See `perldoc -f readdir`
if (-M $file > 2) {
print("$file\n");
unlink($file);
}
}
Any ideas where am I going wrong?
Thanks,
Anu.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
.
- References:
- Modifiaction time of file
- From: Anu P
- Modifiaction time of file
- Prev by Date: Re: problem with whitespace not splitting on split.
- Next by Date: Re: problem with whitespace not splitting on split.
- Previous by thread: Re: Modifiaction time of file
- Next by thread: RE: Modifiaction time of file
- Index(es):
Relevant Pages
|
|
