http://qs321.pair.com?node_id=144004


in reply to deletes timestamped logfiles (MMDDYY) based on actual time

If I was going to write this, I would use Time::Piece and the code would look like: 
#!/usr/bin/perl -wT
use strict;
use Time::Piece;

my $daysago    = 28;
my $datadir    = "/var/adm";

# MMDDYY of 28 days ago
my $timestring = localtime(time-$daysago*24*60*60)->strftime("%m%d%y")
+;
my $file       = "$datadir/backup.$timestring.log.Z";

-e $file     or die "File '$file' doesn't exist"; 
unlink $file or die "Couldn't unlink '$file'";

[download]

-Blake

In Section Craft