interpreting script
From: Shawn (spedwards_at_qwest.net)
Date: 01/31/04
- Next message: Walter Roberson: "Re: interpreting script"
- Previous message: Walter Roberson: "Re: how to check for ip address that falls inside a range."
- Next in thread: Walter Roberson: "Re: interpreting script"
- Reply: Walter Roberson: "Re: interpreting script"
- Reply: Michele Dondi: "Re: interpreting script"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Fri, 30 Jan 2004 21:56:44 -0700
Hi,
I'm having a hard time interpreting a portion of a perl script (below). I
think its looking for the file pattern then determining the age and removing
it if its over 30 days old. The line with >30 has kind of got me. Any help
would be greatly appreciated.
@down_file_list = `/bin/ls *.downloaded *.kl2_download | grep -v
"_ppsd.zip" 2> /dev/null`;
foreach $down_file (@down_file_list) {
chop($down_file); #remove newline
if (-M $down_file > 30 ) {
print "Removing file $down_file in $search_dir/$home_dir\n";
system("/bin/rm -f $down_file");
}
}
- Next message: Walter Roberson: "Re: interpreting script"
- Previous message: Walter Roberson: "Re: how to check for ip address that falls inside a range."
- Next in thread: Walter Roberson: "Re: interpreting script"
- Reply: Walter Roberson: "Re: interpreting script"
- Reply: Michele Dondi: "Re: interpreting script"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
