Greg Schiedler wrote:
> Perl v5.6.1
>
> Trying to easily create some variable based on the current month and
> links to the two previous months. The filename(s) are based on two
> digit months MM-YYYY-Filename. I have the filename part working but
> I need some guidancd on creating the MM-YYYY. I have seen many perl
> modules that I could install to implement a solution but I think that
> is an overkill just to make create a current month, previous month
> and two months ago variables.
Modules? We don't need no stinking modules! :~)
my ($m, $y) = (localtime)[4, 5];
for (0 .. 2) {
printf "%02d-%04d\n", $m + 1, $y + 1900;
$m--;
$m = 11, $y-- if $m < 0;
}
Output:
09-2004
08-2004
07-2004
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
