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

Dies ist der einfachste Weg, um die unix Zeit:

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

Beachten Sie die umgekehrte Reihenfolge der Argumente und der Januar ist der Monat 0 ist.
Viele weitere Optionen finden Sie in der DateTime Modul von CPAN.

Als für die Analyse, finden Sie unter der Date::Parse Modul von CPAN. Wenn Sie wirklich brauchen, um Phantasie mit Datum Parsen, die Date::Manip kann hilfreich sein, obwohl seine eigene Dokumentation warnt Sie Weg von es, da es enthält eine Menge Gepäck (er weiß, Dinge wie gemeinsame business-Urlaub, zum Beispiel) und andere Lösungen, die viel schneller sind.

Wenn Sie geschehen, zu wissen, etwas über das format von Datum/Uhrzeit werden Sie dann analysieren Sie einen einfachen regulären Ausdruck genügen, aber du bist wahrscheinlich besser dran mit einem entsprechenden CPAN-Modul. Zum Beispiel, wenn Sie wissen, die Termine werden immer im YMDHMS bestellen, nutzen Sie das CPAN-Modul DateTime::Format::nach ISO8601.

Für meine eigene Referenz, wenn sonst nichts, unten ist eine Funktion, die ich für eine Anwendung, wo ich weiß, die Termine werden immer im YMDHMS, um alle oder einen Teil von "HMS" - Teil optional. Es werden alle Trennzeichen (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, wenn es konnte nicht analysiert werden (was bedeutet, dass Sie besser sicher sein, dass Sie nie rechtmäßig müssen analysieren, das Datum 1969-12-31 23:59:59). Es geht auch davon aus Ziffer zwei Jahre XX bis "69" beziehen sich auf "20XX", sonst "19XX" (z.B., "50-02-15" bedeutet 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;
}

InformationsquelleAutor der Antwort

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

InformationsquelleAutor der Antwort ysth

Get-Date::Manip von CPANdann:

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

edit:

Date::Manip ist groß und langsam, aber sehr flexibel in der Analyse, und es ist reines perl. Verwenden Sie es, wenn Sie in Eile sind, wenn Sie code schreiben, und Sie wissen, dass Sie nicht in Eile sein, wenn Sie laufen.

z.B. Verwenden Sie es, zu analysieren, Optionen für die Befehlszeile einmal auf start-up, aber verwenden Sie es nicht analysieren große Mengen von Daten auf einem stark ausgelasteten web-server.

Sehen die Autoren-Kommentare.

(Dank an den Autor des ersten Kommentars)

InformationsquelleAutor der Antwort scottc

Gibt es viele manipulation von Datum-Module auf CPAN. Mein besonderer Favorit ist DateTime und Sie können die strptime-Module zu analysieren, Daten in beliebigen Formaten. Es gibt auch viele DateTime::Format-Module auf CPAN für die Handhabung von spezialisierten Datum-Formate, aber strptime ist die generic.

InformationsquelleAutor der Antwort Shlomi Fish

Möglicherweise eines der besseren Beispiele von "Es gibt Mehr Als Einen Weg, Es Zu Tun", mit oder ohne die Hilfe von CPAN.

Wenn Sie die Kontrolle haben über das, was Sie übergeben bekommen als 'Datum/Zeit', würde ich vorschlagen, gehen die DateTime route, entweder mit einem bestimmten Zeitpunkt::Zeitpunkt::Format-Unterklasse, oder mit DateTime::Format::Strptime, wenn es nicht die Unterstützung Ihrer abgedrehten Datums-format (siehe datetime-FAQ für mehr details). Im Allgemeinen, Datum::die Zeit ist der Weg zu gehen, wenn Sie wollen, um etwas ernstes zu tun, mit dem Ergebnis: einige Klassen auf CPAN sind ziemlich wie anal-retentive und zwanghaft genau.

Wenn Sie erwarten, dass seltsame Freiform-Zeug, wirf es auf Date::Parse's str2time () - Methode, erhalten Sie einen Sekunden-da-epoch-Wert können Sie dann Ihre böse Art mit, ohne den overhead von Date::Manip.

InformationsquelleAutor der Antwort Penfold

Wenn Sie nur auf der Suche nach einem command-line utility (d.h., nicht etwas, das aufgerufen werden, von anderen Funktionen), versuchen, dieses Skript. Es nimmt die Existenz von GNU date (vorhanden 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

InformationsquelleAutor der Antwort raldi