Was ist der beste Weg, um den UTC-offset in Perl?

Ich brauche, um den UTC-offset der aktuellen Zeitzone in Perl in ein cross-Plattform (Windows und verschiedene Unix-Geschmacksrichtungen) Weg. Es sollte genügen dieses format:

zzzzzz, das entspricht ±hh:mm in relation zur UTC

Sieht es aus wie ich sollte in der Lage sein, um es über strftime() ist, aber es nicht konsistent zu sein scheint.

Unix:

Input: perl -MPOSIX -e "print strftime(\"%z\", localtime());"
Output: -0700

Windows:

Input: perl -MPOSIX -e "print strftime(\"%z\", localtime());"
Output: Mountain Standard Time

Während es scheint, dass Unix gibt mir, was ich will (oder zumindest so etwas in der Nähe), Windows nicht. Ich bin mir ziemlich sicher, dass ich es tun kann, mit Date::Time oder ähnliches, aber ich möchte wirklich nicht irgendwelche Abhängigkeiten, die ich nicht garantieren kann, dass ein Benutzer durch unsere Breite installierte Basis.

Übersehe ich etwas offensichtliches hier? Vielen Dank im Voraus.

InformationsquelleAutor Morinar | 2010-01-26
  1. 15

    Time::Local sollte den trick tun

    use Time::Local;
@t = localtime(time);
$gmt_offset_in_seconds = timegm(@t) - timelocal(@t);
    • Time::Local ist ein core-Modul in alle Perl-5-Distributionen.
    • Dies ist eine großartige Lösung; nur gab es eine rudimentäre testen, aber es scheint zu funktionieren wie es soll. Danke.
    InformationsquelleAutor mob
  2. 0

    "Ich möchte wirklich nicht irgendwelche Abhängigkeiten, die ich nicht garantieren kann, dass ein Benutzer durch unsere Breite installierte Basis"

    Wie etwa eine benutzerdefinierte Kopie von Date::Time (nennen wir es Meine::Date::Time) in Ihrer installation? Zum Beispiel,

    use lib 'my-module/dependencies/';

use My::Date::Time;
    InformationsquelleAutor Christopher Bottoms
  3. 0

    Können Sie berechnen Sie die Differenz zwischen localtime($t) und gmtime($t). Hier ist meine version, inspiriert von mob's Antwort:

    use strict;
use warnings;    

sub tz_offset
{
    my $t = shift;
    my @l = localtime($t);
    my @g = gmtime($t);

    my $minutes = ($l[2] - $g[2] + ((($l[5]<<9)|$l[7]) <=> (($g[5]<<9)|$g[7])) * 24) * 60 + $l[1] - $g[1];
    return $minutes unless wantarray;
    return (int($minutes / 60), $minutes % 60);
}

push @ARGV, time;
foreach my $t (@ARGV) {
    printf "%s (%d): %+03d%02u\n", scalar localtime($t), $t, tz_offset($t);
}
    InformationsquelleAutor dolmen
  4. -1

    Einem tragbaren Methode ist das vergleichen der Ausgabe des localtime mit gmtime

        $t = time;
    @a = localtime($t);
    @b = gmtime($t);

    $hh = $a[2] - $b[2];
    $mm = $a[1] - $b[1];
    # in the unlikely event that localtime and gmtime are in different years
    if ($a[5]*366+$a[4]*31+$a[3] > $b[5]*366+$b[4]*31+$b[3]) {
      $hh += 24;
    } elsif ($a[5]*366+$a[4]*31+$a[3] < $b[5]*366+$b[4]*31+$b[3]) {
      $hh -= 24;
    }
    if ($hh < 0 && $mm > 0) {
      $hh++;
      $mm = 60-$mm;
    }
    printf "%+03d:%02d\n", $hh, $mm;

    Jemand wies darauf hin, dass dies bereits umgesetzt ein Modul irgendwo in 5, 4, 3, ...

    • Können Sie erklären, die Berechnung in der if-Anweisung -- warum multiplizieren Sie das Jahr durch die Anzahl der Tage in einem Schaltjahr? warum Monat * 31? Warum sollten Sie am Tag? Danke.
    • Friedman - es ist ein test, um zu sehen, ob @a[5,4,3] und @b[5,4,3] repräsentieren den gleichen Tag. Ich kombiniere Sie Jahr, Monat und Tag in einer einzigen Zahl, so kann ich mit einem Vergleich statt drei. Könnte man auch größere zahlen als die, 366 und 31 und Sie würde immer noch das richtige Ergebnis.
    • Sie verwenden sollten, bit-Felder anstelle der Multiplikation, wenn Sie wollen schnell: ($a[5]<<13)|($a[4]<<5)|$a[3]. Auch die <=> operator, der verwendet werden könnte, um ersetzen Sie die if-Anweisung.
    • Noch schneller: ($a[5]<<9)|$a[7] ($a[7] ist die Tag-Nummer im Jahr)
    InformationsquelleAutor mob
Schreibe einen Kommentar