Wie kann ich die Differenz von zwei timestamps mit Perl?

Ich hier basiert ein problem.. ich habe zwei timestamps mit dem gleichen format wie (Tue Dec-14 18:23:19 2010 & di Dez 14 17:23:19 2010). wie kann ich die Differenz von zwei timestamps in Stunden.
bitte helfen Sie mir

InformationsquelleAutor jeny | 2010-12-16
  1. 9
    use Date::Parse;


my $t1 = 'Tue Dec 14 17:23:19 2010';
my $t2 = 'Tue Dec 14 18:23:19 2010';

my $s1 = str2time( $t1 );
my $s2 = str2time( $t2 );

print $s2 - $s1, " seconds\n";
    InformationsquelleAutor Jiří Polcar
  2. 5

    Ich nutze die DateTime-Familie von Klassen für so ziemlich alle meine Datum/Zeit-Verarbeitung.

    #!/usr/bin/perl

use strict;
use warnings;

use DateTime::Format::Strptime;

my $dp = DateTime::Format::Strptime->new(
  pattern => '%a %b %d %H:%M:%S %Y'
);

# Create two DateTime objects
my $t1 = $dp->parse_datetime('Tue Dec 14 17:23:19 2010');
my $t2 = $dp->parse_datetime('Tue Dec 14 18:23:19 2010');

# The difference is a DateTime::Duration object
my $diff = $t2 - $t1;

print $diff->hours;
    • aber seine Laufzeiten haben einige Fallstricke für den unvorsichtigen. Dein code funktioniert nicht, wenn die beiden Zeitstempel verschiedenen Tagen.
    InformationsquelleAutor Dave Cross
  3. 1

    Können Sie die Vorteile von DateTime und seine subtract_datetime() Methode, die gibt einen DateTime::Duration Objekt.

    use Date::Parse;
use DateTime;

my $t1 = 'Tue Dec 14 17:23:19 2010';
my $t2 = 'Tue Dec 14 18:23:19 2010';

my $t1DateTime = DateTime->from_epoch( epoch => str2time( $t1 ) );
my $t2DateTime = DateTime->from_epoch( epoch => str2time( $t2 ) );

my $diff = $t2DateTime->subtract_datetime( $t1DateTime );

print "Diff in hours: " . $diff->in_units('hours') . "\n";
print "Diff in months: " . $diff->in_units('months') . "\n";
    InformationsquelleAutor Paolo Rovelli
Schreibe einen Kommentar