¿Cómo puedo convertir zonas horarias en Perl?

Question

Estoy tratando de convertir una fecha/hora GMT 0 a GMT -6 en Perl.

Por ejemplo, un tiempo de concesión servidor DHCP está en el siguiente formato:

2010/02/18 23:48:37

Estoy tratando de convertir ese tiempo para localtime zona (GMT -6) pero lo necesita para respetar el horario de verano.

El siguiente script puede ser excesivo, pero no estoy seguro de cómo proceder desde aquí. (Cualquier sugerencia sería increíble).

my $TIMESTART; 

$TIMESTART = "2010/02/18 23:48:37"; 
$TIMESTART =~ s/\//-/g; 

use DateTime; 
use DateTime::TimeZone; 

use DateTime::Format::MySQL; 
my $dt = DateTime::Format::MySQL->parse_datetime($TIMESTART); 

my $tz = DateTime::TimeZone->new(name => 'America/Chicago'); 

print $tz->offset_for_datetime($dt) . "\n"; 

Será salida las siguientes líneas:

2010-02-18T23: 48: 37
-21600

Necesito ser capaz de añadir a la -21600 fecha para obtener la zona horaria local de GMT -6, pero no estoy seguro de cómo abordar esto.

Answer 1

llamada set_time_zone método 2 veces:

my $dt = DateTime::Format::MySQL->parse_datetime($TIMESTART); 
$dt->set_time_zone('UTC'); ## set timezone of parsed date time 
$dt->set_time_zone('America/Chicago'); ## change timezone in safe way 

print DateTime::Format::MySQL->format_datetime($dt),"\n"; ## check the result 

como funciona:

• cuando se crea DateTime objeto sin zona horaria especificada " "zona horaria flotante" se establece
• primera llamada de set_time_zone cambie la zona horaria a UTC sin conversión
• segundo llamado de set_time_zone cambio UTC a America/Chicago

Answer 2

Time::Piece es una pieza muy ligera de código de buena calidad. O simplemente puede utilizar muebles empotrados y strftime y POSIX::strptime

Answer 3

#!/usr/bin/perl -w 
($sec,$min,$hour,$mday,$mon,$year) = gmtime(time+21600); 
$year = $year + 1900; 
printf("%02d:%02d:%02d %02d.%02d.%04d\n", $hour,$min,$sec,$mday,$mon,$year); 

Answer 4

Esto convertirá la hora UTC en el tiempo ETC. También puede usar la fecha/hora en cualquier formato usando el parámetro + FORMAT de la fecha.

fecha --date = 'TZ = "ETC" 18:30'