perl script to convert GMT date/time to EST date/time

[Mike_Ca Li]

Event Put Date (GMT) : 2006/02/04
Event Put Time (GMT) : 02:46:31

Could someone help me with perl script to convert above to
Event Put Date (EST) : 2006/02/03
Event Put Time (EST) : 21:46:31

Thank you.

[James R. Ferguson · Accepted solution]

Hi Mike:

# cat ./dotime
#!/usr/bin/perl
use Time::Local;
($year,$mon,$day) = split /\//, $ARGV[0];
($hrs,$min,$sec ) = split /:/, $ARGV[1];
$time = timegm($sec, $min, $hrs, $day, $mon-1, $year-1900);
print scalar localtime($time), "\n";

...run as:

./dotime 2006/02/08 02:46:31

Regards!

...JRF...

[Geoff Wild]

Take a look at Clay's date hammer script:

http://www.cmve.net/~merijn/index.html#Contrib

Rgds...Geoff

[Mike_Ca Li]

Right on. Thanks a lot