Wie wandle ich ein Datum/eine Uhrzeit in Epochzeit (Unixzeit/Sekunden seit 1970) in Perl um?

Question

Wenn Sie ein Datum/eine Uhrzeit als Array von (Jahr, Monat, Tag, Stunde, Minute, Sekunde) angeben, wie würden Sie es in die Epoche umrechnen, dh die Anzahl der Sekunden seit 1970-01-01 00:00: 00 GMT?

Bonus Frage: Datum/Uhrzeit als String Wenn gegeben, wie würden Sie es zuerst in das Array (y, m, d, h, m, s) analysieren?

Answer 1

Dies ist der einfachste Weg, die Unix-Zeit zu bekommen:

use Time::Local; 
timelocal($second,$minute,$hour,$day,$month-1,$year); 

Beachten Sie die umgekehrte Reihenfolge der Argumente und dass der Januar ist Monat 0. Für viele weitere Optionen, die DateTime Modul von CPAN sehen.

Wie für die Analyse finden Sie in der Date::Parse Modul von CPAN. Wenn Sie wirklich mit Datum analysieren müssen, kann das Date::Manip hilfreich sein, obwohl seine eigene Dokumentation warnt Sie davor, da es eine Menge Gepäck (es kennt Dinge wie gemeinsame Geschäftsreisen, zum Beispiel) und andere Lösungen sind viel schneller.

Wenn Sie etwas über das Format des Datums/der Uhrzeit wissen, die Sie parsen, dann kann ein einfacher regulärer Ausdruck ausreichen, aber Sie sind wahrscheinlich besser dran mit einem geeigneten CPAN-Modul. Wenn Sie beispielsweise wissen, dass die Daten immer in YMDHMS-Reihenfolge vorliegen, verwenden Sie das CPAN-Modul DateTime::Format::ISO8601.

---

Für meine eigene Referenz, wenn nichts anderes, unten ist eine Funktion, die ich für eine Anwendung verwenden, wo ich die Daten weiß, werden immer mit allen oder einem Teil des „HMS“ Teils optional in YMDhms Ordnung sein. Es akzeptiert alle Begrenzer (zB "2009-02-15" oder "2009.02.15"). Es gibt die entsprechende Unix-Zeit (Sekunden seit 1970-01-01 00:00:00 GMT) oder -1 zurück, wenn es nicht analysiert werden konnte (was bedeutet, dass Sie besser sicher sein müssen, dass Sie das Datum 1969 nicht richtig analysieren müssen). 12-31 23:59:59). Es setzt auch zweistellige Jahre voraus XX bis "69" beziehen sich auf "20XX", ansonsten "19XX" (zB bedeutet "50-02-15" 2050-02-15, aber "75-02-15" bedeutet 1975- 02-15).

use Time::Local; 

sub parsedate { 
    my($s) = @_; 
    my($year, $month, $day, $hour, $minute, $second); 

    if($s =~ m{^\s*(\d{1,4})\W*0*(\d{1,2})\W*0*(\d{1,2})\W*0* 
       (\d{0,2})\W*0*(\d{0,2})\W*0*(\d{0,2})}x) { 
    $year = $1; $month = $2; $day = $3; 
    $hour = $4; $minute = $5; $second = $6; 
    $hour |= 0; $minute |= 0; $second |= 0; # defaults. 
    $year = ($year<100 ? ($year<70 ? 2000+$year : 1900+$year) : $year); 
    return timelocal($second,$minute,$hour,$day,$month-1,$year); 
    } 
    return -1; 
} 

Answer 2

Wenn Sie das DateTime Modul verwenden, können Sie die epoch() Methode auf einem Datetime-Objekt aufrufen, denn das ist, was man sich vorstellen, wie die Unix-Zeit.

Datetime ermöglicht es Ihnen, relativ leicht von Epoche zu konvertieren, auf dem neuesten Stand Objekte.

Alternativly, localtime und gmtime wird eine Epoche in einem Array mit Tag Monat und Jahr, und timelocal und timegm vom Time::Local module wird das Gegenteil tun, die Umwandlung einer Reihe von Zeitelementen (Sekunden, Minuten, ..., Tage konvertieren , Monate etc.) in eine Epoche.

Answer 3

Wenn Sie suchen, nur für ein Befehlszeilenprogramm (das heißt, nicht etwas, das von anderen Funktionen aufgerufen werden lassen), dieses Skript ausprobieren. Es nimmt die Existenz von GNU date (präsentieren auf so ziemlich jedem Linux-System):

#! /usr/bin/perl -w 

use strict; 

$_ = (join ' ', @ARGV); 
$_ ||= <STDIN>; 

chomp; 

if (/^[\d.]+$/) { 
    print scalar localtime $_; 
    print "\n"; 
} 
else { 
    exec "date -d '$_' +%s"; 
} 

Hier ist, wie es funktioniert:

$ Time now 
1221763842 

$ Time yesterday 
1221677444 

$ Time 1221677444 
Wed Sep 17 11:50:44 2008 

$ Time '12:30pm jan 4 1987' 
536790600 

$ Time '9am 8 weeks ago' 
1216915200 

Answer 4

Um ein Datum zu analysieren, schauen Date::Parse in CPAN.

Answer 5

Ein Filter, der irgendwelche Daten in verschiedenen ISO-bezogenen Formaten konvertiert (und wer sonst noch alles nach dem Lesen von the writings des Mighty Kuhn verwendet?) Auf dem Standardeingabe-Sekunden seit der Epoche-Zeit auf der Standardausgabe beiden Teile zur Veranschaulichung dienen könnte:

martind@whitewater:~$ cat `which isoToEpoch` 
#!/usr/bin/perl -w 
use strict; 
use Time::Piece; 
# sudo apt-get install libtime-piece-perl 
while (<>) { 
    # date --iso=s: 
    # 2007-02-15T18:25:42-0800 
    # Other matched formats: 
    # 2007-02-15 13:50:29 (UTC-0800) 
    # 2007-02-15 13:50:29 (UTC-08:00) 
    s/(\d{4}-\d{2}-\d{2}([T ])\d{2}:\d{2}:\d{2})(?:\.\d+)? ?(?:\(UTC)?([+\-]\d{2})?:?00\)?/Time::Piece->strptime ($1, "%Y-%m-%d$2%H:%M:%S")->epoch - (defined ($3) ? $3 * 3600 : 0)/eg; 
    print; 
} 
martind@whitewater:~$ 

Answer 6

Mein Lieblingsdatetime-Parser ist DateTime::Format::ISO8601 Sobald Sie diese Arbeits haben, haben Sie eine Datetime Objekt, leicht konvertierbar Sekunden mit Epoche Epoche()

Answer 7

Get Date::Manip from CPAN, dann:

use Date::Manip; 
$string = '18-Sep-2008 20:09'; # or a wide range of other date formats 
$unix_time = UnixDate(ParseDate($string), "%s"); 

edit:

Datum :: Manip i s groß und langsam, aber sehr flexibel in der Analyse, und es ist reines Perl. Verwenden Sie es, wenn Sie es eilig haben, wenn Sie Code schreiben, und Sie wissen, dass Sie es nicht eilig haben werden, wenn Sie es ausführen.

z.B. Verwenden Sie es, um Befehlszeilenoptionen beim Starten einmal zu analysieren, aber verwenden Sie es nicht, um große Datenmengen auf einem ausgelasteten Webserver zu analysieren.

Siehe the authors comments.

(Danke an den Autor des ersten Kommentars unten)

Answer 8

Möglicherweise eines der besseren Beispiele für ‚Es gibt mehr als einen Weg, es zu tun“, mit oder ohne Hilfe von CPAN.

Wenn Sie haben die Kontrolle darüber, was Sie als "Datum/Uhrzeit" erhalten. Ich würde vorschlagen, die Route DateTime entweder mit einer bestimmten Date :: Time :: Format-Unterklasse oder mit DateTime :: Format :: Strptime, wenn dort unterstützt nicht Ihr verrücktes Datumsformat (Details finden Sie unter datetime FAQ). Im Allgemeinen ist Date :: Time der richtige Weg, wenn Sie etwas Ernstes mit dem Ergebnis machen wollen: Nur wenige Klassen auf CPAN sind so zurückhaltend und obsess richtig genau.

Wenn Sie seltsame Freiform Sachen erwarten sind, werfen Sie es auf Date::Parse ‚s str2time() -Methode, which'll erhalten Sie ein-Sekunden seit Epoche Wert Sie können dann mit Ihrem bösen Art und Weise haben, ohne den Overhead von Date::Manip .

Answer 9

Es gibt viele Datumsmanipulationsmodule auf CPAN. Mein besonderer Favorit ist DateTime und Sie können die strptime modules verwenden, um Daten in beliebigen Formaten zu analysieren. Es gibt auch viele DateTime :: Format-Module in CPAN für die Verarbeitung spezieller Datumsformate, aber die Laufzeit ist am allgemeinsten.

Answer 10

$ENV{TZ}="GMT"; 
POSIX::tzset(); 
$time = POSIX::mktime($s,$m,$h,$d,$mo-1,$y-1900); 

Answer 11

zur weiteren ein Motto, die in angewendet werden kann, beispielsweise !#/bin/sh Skripten.

EPOCH="`perl -e 'use Time::Local; print timelocal('${SEC}','${MIN}','${HOUR}','${DAY}','${MONTH}','${YEAR}'),\"\n\";'`" 

Denken Sie daran, Oktalwerte zu vermeiden!

Answer 12

Ich weiß, das ist eine alte Frage, aber dachte, ich würde eine andere Antwort anbieten.

Time::Piece ist als Kern von Perl 5.9.5

Dies ermöglicht Parsing der Zeit in willkürlichen Formaten über die strptime Methode.

z.B .:

my $t = Time::Piece->strptime("Sunday 3rd Nov, 1943", 
           "%A %drd %b, %Y"); 

Der nützliche Teil ist - weil es ein überladenes Objekt ist, können Sie es für numerische Vergleiche verwenden können.

z.B.

if ($t < time()) { #do something } 

Oder wenn Sie es in einem String-Kontext zuzugreifen:

print $t,"\n"; 

Sie erhalten:

Wed Nov 3 00:00:00 1943 

Es gibt eine Reihe von Zugriffsmethoden, die für einige verschiedene andere nützliche zeitbasierte Transformationen erlauben . https://metacpan.org/pod/Time::Piece