Zeit-Differenz in Sekunden

In einem Perl-Programm habe ich eine variable mit Datum /Uhrzeit in diesem format:

Feb 3 12:03:20

Muss ich feststellen, wenn dieses Datum mehr als x Sekunden alt (basierend auf der aktuellen Zeit), auch wenn dies Auftritt, über Mitternacht (z.B. Feb 3 23:59:00 mit Uhrzeit = Feb 4 00:00:30).

Perl-Datum /Zeit-Informationen, die ich gefunden habe, ist irrsinnig.
In der Nähe von wie ich sagen kann, ich Date::Calc, aber ich bin nicht der Suche nach einem Sekunden-delta.
Danke 🙂

InformationsquelleAutor Xi Vix | 2012-02-03

  1. 3

    In perl, es gibt immer mehr als einen Weg etwas zu tun. Hier ist eine, die verwendet nur ein Modul, das serienmäßig mit Perl:

    #! perl -w

use strict;
use Time::Local;

my $d1 = "Feb 3 12:03:20";
my $d2 = "Feb 4 00:00:30";

# Your date formats don't include the year, so
# figure out some kind of default.
use constant Year => 2012;


# Convert your date strings to Unix/perl style time in seconds
# The main problems you have here are:
# * parsing the date formats
# * converting the month string to a number from 1 to 11
sub convert
{
    my $dstring = shift;

    my %m = ( 'Jan' => 0, 'Feb' => 1, 'Mar' => 2, 'Apr' => 3,
            'May' => 4, 'Jun' => 5, 'Jul' => 6, 'Aug' => 7,
            'Sep' => 8, 'Oct' => 9, 'Nov' => 10, 'Dec' => 11 );

    if ($dstring =~ /(\S+)\s+(\d+)\s+(\d{2}):(\d{2}):(\d{2})/)
    {
        my ($month, $day, $h, $m, $s) = ($1, $2, $3, $4, $5);
        my $mnumber = $m{$month}; # production code should handle errors here

        timelocal( $s, $m, $h, $day, $mnumber, Year - 1900 );
    }
    else
    {
        die "Format not recognized: ", $dstring, "\n";
    }
}

my $t1 = convert($d1);
my $t2 = convert($d2);

print "Diff (seconds) = ", $t2 - $t1, "\n";

    Machen das wirklich serienreif ist, es muss einen besseren Umgang mit der Jahreszahl (zum Beispiel, was passiert, wenn der start-Termin ist im Dezember und end-Datum im Januar?) und eine bessere Fehlerbehandlung (was passiert zum Beispiel, wenn die 3-char Monat Abkürzung ist mispelled?).

    wow ... viel mehr beteiligt als ich erwartet habe ... danke
    es ist unnötig kompliziert, für das, was Sie wollen. vmpstr Antwort ist völlig praktikabel, hier.
    Es hängt alles davon ab, wie viele Module Sie können oder benutzen werden. Siehe die Antwort von @vmpstr, mit Date::Parse. Wenn Sie die Installation dieses Moduls ist akzeptabel, für ihn gehen. Es ist wahrscheinlich, leistet bessere Arbeit der Umgang mit verschiedenen Datenformaten und mögliche Fehler als dieser kurze code-snippet.
    Ich mag dieses code-snippet, einfach und praktikabel, ohne weitere Abhängigkeit .
    vmpstr Antwort ist nur 2 Linien, und verwendet eine robuste CPAN-Modul, was für mich ein viel besserer Ansatz.

    InformationsquelleAutor theglauber

  2. 20
    #!/usr/bin/perl

$Start = time();
sleep 3;
$End = time();
$Diff = $End - $Start;

print "Start ".$Start."\n";
print "End ".$End."\n";
print "Diff ".$Diff."\n";

    Dies ist ein einfacher Weg, um die Zeitdifferenz in Sekunden.

    Dies beantwortet nicht die Frage an alle, die über den Vergleich von Zeiten in zwei Variablen.
    Stimmt, ABER es erlaubt ... ein.) die person, die gefragt, die ursprüngliche Frage zu prüfen, einen anderen Ansatz, was kann einfacher sein als die seiner/Ihrer ursprünglichen Art und Weise; b.) andere Menschen finden diese Seite über die Suche im web einfach Messen Sie die Sekunden vergingen. Ich gehöre zu letzteren, und ich mag es sehr Sjoerd Beispiel. Einfach, und hat keine Abhängigkeiten. Genau das, was ich suchte.
    und natürlich löst mein problem nach 3 Sekunden googeln , vielen Dank!!! BTW ... ein guru sagte mir, dass die richtige var-Namen sollten sein : start_time , stop_time und begin_time -> Endzeit ...

    InformationsquelleAutor Sjoerd Linders

  3. 9

    Scheint es eine bequeme Date::Parse. Hier ist das Beispiel:

    use Date::Parse;

print str2time ('Feb 3 12:03:20') . "\n";

    Und hier ist, was es gibt:

    $ perl test.pl
1328288600

    ist:
    Fri Feb 3 12:03:20 EST 2012

    Ich bin mir nicht sicher, wie Sie anständig die Analyse, sondern analysiert dein Beispiel gut 🙂

    wie kann ich das aktuelle Datum in das gleiche format für den Vergleich? localtime(time) gibt eine viel längere Nummer.
    Sie brauchen nicht localtime, verwenden Sie einfach time: es gibt einen Unix-Zeitstempel (Sekunden seit 1 Januar 1970 00:00:00 UTC), nur wie str2time.
    Zum Glück für Ihre Bedürfnisse, perl verwendet die Unix-Konvention der Messung der Zeit in Sekunden seit 1 Januar 1970, also die Ausgabe von str2parse oben ist schon in Sekunden, und Sie können die Mathematik zu tun.

    InformationsquelleAutor vmpstr

  4. 6

    In den Geist der TMTOWTDI, können Sie nutzen die core -Time::Piece : 

    #!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
my $when = "@ARGV" or die "'Mon Day HH:MM:SS' expected\n";
my $year = (localtime)[5] + 1900;
my $t = Time::Piece->strptime( $year . q( ) . $when, "%Y %b %d %H:%M:%S" );
print "delta seconds = ", time() - $t->strftime("%s"),"\n";

    $ ./mydelta Feb 3 12:03:20

    delta seconds = 14553

    Des Laufenden Jahres ausgegangen und aus Ihrem localtime.

    Nicht sicher, warum, aber $t->epoch arbeitet, während $t->strftime("%s") nicht
    Welche version von Time::Piece verwenden Sie? Es sieht aus wie 1.20 Hinzugefügt strftime Unterstützung für %s.
    $t->Epoche scheint die Nutzung von einigen Lokalisierungs-Einstellung, die ich nicht kenne. In meinem Fall epoch zurück EDT time zone-Wert, während ich bin eigentlich in JST (Japan-Zeit) Zeit. Allerdings strftime("%s") gibt Sie den richtigen Wert in Sekunden (JST), die im Einklang mit time().

    InformationsquelleAutor JRFerguson

  5. 2

    Vorausgesetzt, Sie verwenden möchten Date::Calc, konvertieren Sie die beiden Werte auf "time" - Werte mit Date_to_Time und subtrahieren Sie die Werte, um die Differenz in Sekunden. Aber um dies zu tun, müssen Sie zum konvertieren von Zeichenfolgen YY MM DD hh mm ss Werte übergeben Date_to_Time ersten.

    InformationsquelleAutor Marius Kjeldahl

Schreibe einen Kommentar