http://www.perlmonks.org?node_id=204578


in reply to Re: Perl 6 release date
in thread Perl 6 release date

New rule: only one entry per person :)

Nevertheless, here's a different version: 

use POSIX qw(mktime strftime);

my $end = mktime(59, 59, 23, 31, 11, 110);
for (my $time = time; $time <= $end; $time += 86400) {
    print strftime "%Y-%m-%d\n", localtime $time;
}

[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

In Section Meditations