Re: number to date conversion

Yet another WTDI:

#!/perl/bin/perl

use strict;
use warnings;

my $YYMMDD = '130510';
my @D      = unpack('(A2)*', $YYMMDD);
my $date   = join('/', @D);

print $date, "\n";
[download]

What can be asserted without proof can be dismissed without proof. - Christopher Hitchens, 1949-2011

Comment on Re: number to date conversion Download Code

In Section Seekers of Perl Wisdom