in reply to Two Weeks
Maybe this will help:
my $now = time; print map "<$_>\n", map { my $lt = localtime($now - 86400 * $_); join '', unpack '@8 a2 @4 a3 @22 a2', $lt; } 0..13;
-- Randal L. Schwartz, Perl hacker
|
---|
In Section
Seekers of Perl Wisdom