How about a solution that doesn't use any non-standard modules?

#!/usr/bin/perl -w
use strict;
use Time::Local;
use POSIX 'strftime';

my @now = localtime;

$now[4]++;

if ($now[4] == 12) {
  $now[4] = 0;
  $now[5]++;
}

$now[3] = 1;

my @then = localtime(timelocal(0, 0, 12, @now[3 .. 5]) - 86_400);

print strftime '%Y-%m-%d', @then;
[download]

"The first rule of Perl club is you don't talk about Perl club."

Is Time::Local a standard module? I had to install it manually for 5.005_03, though it seems to have come standard with my 5.6.0 installation.

I once asked a similiar question, but since you used both Time::Local and POSIX, I'll ask it again. Is there a particular reason you chose Time::Local::timelocal() over POSIX::mktime()?

-Blake

Time::Local has been a part of standard Perl for at least six years. If you had to install it manually for 5.005_03, then I think you had a broken installation.

The reason for using Time::Local::timelocal is that it's a function that I know and use. I didn't know that POSIX::mktime existed until you mentioned it the other day. In this case, POSIX::mktime might make more sense, as it would mean loading one less module.

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."

Well not quite the current month, as you have to provide a year and month:

print "The last day of the month is ",
  Date_to_Text_Long((Today())[0..1],Days_in_Month((Today())[0..1]));
[download]

--
I'd like to be able to assign to an luser

Regards...	Stefan
you begin bashing the string with a +42 regexp of confusion

Here ia a one liner you could adapt for a cron job.

perl -MDate::Calc=Days_in_Month -e'@l=localtime;printf("Final Day %i\n
+",Days_in_Month($l[5]+1900,($l[4]+1)%12))'
[download]

cheers

thinker