Re: Date conversion

Look at the DateTime::Format heiracracy. There's bound to be something in there that works. If not, DateTime::Format::Builder can probably be used as a fallback.

----
: () { :|:& };:

Note: All code is untested, unless otherwise stated

Comment on Re: Date conversion Download Code

Replies are listed 'Best First'.

use DateTime::Format::Strptime;
by PodMaster (Abbot) on Mar 25, 2004 at 01:07 UTC

DateTime::Format::Strptime

use DateTime::Format::Strptime;

my $Strp1 = DateTime::Format::Strptime::->new(
    pattern     => '%A %B %d %H:%M:%S %Y',
    locale      => 'en_US',
    on_error    => 'croak',
);

#YYYY_MM_DD_HH_MM_SS 
my $Strp2 = DateTime::Format::Strptime::->new(
    pattern     => '%Y_%m_%d_%H_%M_%S',
    locale      => 'en_US',
    on_error    => 'croak',
);

my $dt = 'Sat Sep 20 17:44:55 2003';
warn $dt,$/;

die $Strp2->format_datetime($Strp1->parse_datetime( $dt )),$/;

__END__
Sat Sep 20 17:44:55 2003
2003_09_20_17_44_55
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]