Re: Coolest way to decode YYYYMMDD?

use DateTime;
use List::MoreUtils qw(mesh);

my $string = "19830501";

my $date = DateTime->new( mesh @{['year', 'month', 'day']},
                               @{[unpack "A4A2A2", $string]} );
[download]

Is that "cool" enough? :)

Comment on Re: Coolest way to decode YYYYMMDD? Download Code

Replies are listed 'Best First'.
Re^2: Coolest way to decode YYYYMMDD? by ikegami (Patriarch) on Jun 03, 2013 at 06:43 UTC
You can disable a prototype rather than bending over backwards to comply to it. `use DateTime qw( ); use List::MoreUtils qw( mesh ); my $string = "19830501"; my $date = DateTime->new(&mesh( [qw( year month day )] => [ unpack "A4A2A2", $string ] ));` [download]	[reply] [d/l]