Re: Convert GMT timestamp to EST/EDT ( DateTime::Format::Strptime set_time_zone( 'America/New_York' )

[Anonymous Monk]

#!/usr/bin/perl --
use strict;
use warnings;
use DateTime::Format::Strptime;

my $timestamp = q{20150619-17:30:43.616};

my $fmt = DateTime::Format::Strptime->new(
    pattern => q{%Y%m%d-%T.%3N},
    time_zone => 'UTC',
);

my $dt = $fmt->parse_datetime( $timestamp );
printf "%20s %s\n", $dt->time_zone_long_name, $fmt->format_datetime( $
+dt );
$dt->set_time_zone( 'EST5EDT' );
printf "%20s %s\n", $dt->time_zone_long_name, $fmt->format_datetime( $
+dt );
$dt->set_time_zone( 'EST' );
printf "%20s %s\n", $dt->time_zone_long_name, $fmt->format_datetime( $
+dt );
$dt->set_time_zone( 'America/New_York' );
printf "%20s %s\n", $dt->time_zone_long_name, $fmt->format_datetime( $
+dt );
__END__
                 UTC 20150619-17:30:43.616
             EST5EDT 20150619-13:30:43.616
                 EST 20150619-12:30:43.616
    America/New_York 20150619-13:30:43.616

[gtk]

Thanks a lot. By the way I think DateTime::Format::Strptime module is not coming with the Perl default package.

[Anonymous Monk]

Thanks a lot. By the way I think DateTime::Format::Strptime module is not coming with the Perl default package.

:) Correct, I just checked :) $ corelist DateTime

DateTime::Format::Strptime

Data for 2015-04-20
DateTime was not in CORE (or so I think)

Data for 2015-04-20
DateTime::Format::Strptime was not in CORE (or so I think)

But this was never important to me :) I was mostly checking tye's solution for correctness ;)

Yes, even you can use CPAN, A Guide to Installing Modules, Top 11 (GOOD) reasons not to use someone else's Modules, Top Seven (Bad) Reasons Not To Use Modules