#!/usr/bin/perl # # I win # use warnings; use strict; foreach my $year (2003 .. 2010) { foreach my $month (1 .. 12) { foreach my $day (1 .. 31) { $month = "0$month" if($month < 10); $day = "0$day" if($day < 10); print "$year-$month-$day\n"; } } }
Sure, it has a few bugs, like not taking into account months with less than 31 days. It doesn't change the fact that I still win if perl6 is released between 2003 and 2010 :)
In reply to Re: Perl 6 release date
by hardburn
in thread Perl 6 release date
by Juerd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |