¿Cómo imprimo elegantemente el formato% z(zona horaria) en Perl en Windows?

timezone rfc822

Question

Una rama de ¿Cómo imprimo elegantemente la fecha en formato RFC822 en Perl? , pero específico de Windows.

En windows:

C:/> perl -MPOSIX print strftime(''%z'', localtime()),"/n";

Rendimientos:

Central Daylight Time

Yo estaba esperando:

-0500

Como cualquiera lo haría en un sistema Linux. ¿Cómo puedo obtener el "-0500" en Windows?

ACTUALIZAR:

¿Es realmente terrible hacer esto en su lugar? (Suponiendo que no tengo permiso para instalar DateTime o empaquetarlo de ninguna manera)

C:/> perl -MPOSIX
sub tzoffset {
my $t = time();
my $utc = mktime(gmtime($t));
my $local = mktime(localtime($t));
return ($local - $utc);
}
sub zformat {
my ($tzoffset) = @_;
my $z = '''';
if ($tzoffset < 0) {
$z .= ''-'';
$tzoffset *= -1;
}
my $hours = floor($tzoffset / 60 / 60);
my $minutes = $tzoffset - $hours * 60 * 60;
$z .= sprintf(''%02d%02d'', $hours, $minutes);
return $z;
}
print zformat(tzoffset()),"/n";

El problema que he notado es que esto devuelve -0600 vs -0600 (lo cual era de esperar), pero creo que se debe a los cálculos de horario de verano o algo así. Principalmente estoy buscando una aproximación decente, pero no puedo entender por qué mktime() está jugando con DST?

ACTUALIZAR:

Descubrió que tzoffset() puede ser mucho más "estable" en términos de DST si solo fuerza el DST manualmente.

sub tzoffset {
my $t = time();
my $utc = mktime(gmtime($t));
my @tmlocal = localtime($t);
$tmlocal[8] = 0; # force dst off, timezone specific
my $local = mktime(@tmlocal);
return ($local - $utc);
}

De esta forma, no importa si eres DST o no, siempre devolverá -0500 que es lo que quieres de %z .

Answer 1

Creo que la razón por la que obtienes lo primero es porque

1. %z es específico de Linux
2. En Windows, de alguna manera no te importa mayúsculas y minúsculas en lugar de mayúsculas.

De la página de manual:

%Z Time zone name or abbreviation, or no bytes if no time
zone information exists.

Además, "% z" parece ser específico de Linux; tampoco funciona en Solaris:

$ perl -MPOSIX -e ''print strftime("%z", localtime()),"/n"''
%z
$ perl -MPOSIX -e ''print strftime("%Z", localtime()),"/n"''
EDT

mientras que en Linux obtengo:

$ perl -MPOSIX -e ''print strftime("%z", localtime()),"/n"''
-0400

Si tienes DateTime :: Format instalado, creo que podría soportar %z basado en POD. No lo tengo instalado así que no puedo probar todavía

También DateTime puede admitirlo sin DateTime :: Format.