Perl makes this sort of thing very easy to do. If you want to delete all files that are older than 31 days, you need to read up on the stat function -- specifically, subtract the "ctime" of the file from the current timestamp and see if it's greater than (24 * 60 * 60 * 31). Also, read up on unlink, and possibly File::Find.

HTH.

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]

Hey arturo...
I read the stat function, unlink, and File::Find. They really helped out. Thanx for helping me out!
~Seema

$cutoff = time() - 31*24*60*60;
while(</dir/to/read/*>) {
  unlink $_ if (stat $_)[10] < $cutoff;    
}
[download]

                - Ant
                - Some of my best work - Fish Dinner

Suaveant..
Thanx, that helped out. The script runs fine!
~Seema

I did something like this a while ago. Because I did't know about strict at the time, you will have to modify it slightly...Example

-OzzyOsbourne

I ran the script again. I am getting an error in the 'Process arguments(help, days).
It says: Name "main::opt_h" used only once.
For:

if($opt_h){
 die "\agecmd.pl -d[days to age]\n";
}
if($opt_d){
if($opt_d gt 9){
  die "Error: days option must be a number. Use agecmd.pl -d[days to a
+ge]\n";
}
...
[download]

Should the code be???


if($opt_h){
 die "\agecmd.pl -d[days to age]\n";
}
if($opt_d){
if($opt_d gt 9){
  die "Error: days option must be a number. Use agecmd.pl -d[days to a
+ge]\n";
}
...
[download]

~Seema

Thanx Ozzy...
I checked out the script you wrote. I have taken a few things out...though the script runs just fine! Thanx again!
~Seema

Hi Ozzy..
I tried the example that you had given to me yesturday. I did have an error for the opt_h and opt_d.
I replaced the opt_h command with the opt_d command, now the script runs just fine. Though I know this is not the way you have made the script. I know the way I have changed it, is wrong. Could you please let me know what I can do!?! I know I need the opt_h because its the help command and opt_d is the days command. Please let me know as soon as you can. Thanx for your help!
~Seema

the 1st if statement here says if the user uses -h appended to the end of the script file, die an tell them how to run the command properly.

the second part says: if it is not a number, die, otherwise set $agedays to $opt_d (the value of -d).

Normally, I would run agecmd.pl -d90

By switching the two, you have made the d option the help option, and made the -h option the number of days. By not specifying -d, $agedays is then set to 60 by default, giving you no problems.

By taking things out, and changing the code, it's hard to know what happened. Does you have problems if you run the original code with no mods? Can you post your new code?

if ($opt_h){
    die "\agecmd.pl -d[days to age]\n";
}

if ($opt_d){
    if ($opt_d gt 9){ #tests for strings
        die "Error: days option must be a number.  Use agecmd.pl -d[da
+ys to age]\n";
    }else{
    $agedays=$opt_d;
    }
}
[download]

-OzzyOsbourne