Date change modules

[newtarge]

Hi, does perl have a module to help me with a small problem on date changing.

I have a script which zips up archived log files and names them with the date minus 1 since the logs are from the previous day. The issue here is when I get to the 1st day of the next month the file would be called something like this "0dec2003-server.tar.gz" instead of 30nov2003-server.tar.gz" if that module is out there what is the syntax to use it?

 

[siberian]

Date::Calc does this very well. You can tell it things like 'Give me the date of today - 1' and it figures it all out really well.

 

[bluedragon2]

Take a look at thread219-728867

Blue

If I wasn't Blue, I would just be a Dragon...

 

[PaulTEG]

#!/usr/bin/perl
$now=&get_time;
print "$now";


sub get_time {

 (@date)=reverse(localtime(time-86400));
  $date[3] += 1900; # years start from 1900
  $date[4]++; # months are zero-based
  my $now = "$date[3]-".sprintf("%0.2d",$date[4])."-".sprintf("%0.2d",$date[5])." ".sprintf("%0.2d",$date[6]).":".sprintf("%0.2d",$date[7]).":".sprintf("%0.2d",$date[8]);
  return $now;
}

Here's something to play with
HTH
Paul