So berechnen Sie die Differenz zwischen zwei Zeitstempeln in PERL

Question

Code zum Berechnen der Differenz zwischen 2 angegebenen Zeitstempeln. Start_Time="2017-09-19 19:36:12.763"End_Time="2017-09-19 19:36:22.72" Ich möchte den Unterschied zwischen den oben genannten 2 Zeitstempeln auch unter Berücksichtigung der Millisekunden erhalten. Diese

ist, was ich versucht:

#!/usr/bin/perl 

use strict; 
use warnings; 
use Date::Parse; 
use Date::Format; 

$startdat = "2007-11-17 12:51:22"; 
$stopdate = "2007-11-17 12:52:22"; 

my ($years, $months, $days, $hours, $mins, $secs) = split /\W+/, $startdat; 
my ($yeart, $montht, $dayt, $hourt, $mint, $sect) = split /\W+/, $stopdate; 

my $times = timelocal($secs,$mins,$hours,$days,$months,$years); 
my $timet = timelocal($sect,$mint,$hourt,$dayt,$montht,$yeart); 

$time = $timet - $times; 

print $time; 

Aber das gibt mir eine Fehlermeldung: Kann nicht Datum/Parse.pm in @INC lokalisieren.

Answer 1

Sie erhalten diese Fehlermeldung, da Date :: Parse nicht installiert ist. Dieses Modul gehört nicht zur Standard-Perl-Distribution und muss separat installiert werden. Wenn Sie es verwenden möchten, müssen Sie es installieren.

Jedoch.

Obwohl Sie use Datum :: Parse und Datum :: Format in Ihrem Code, Sie nicht tatsächlich von ihnen Gebrauch machen. Sie können diese beiden Zeilen einfach löschen. Dann wird dein Code wahrscheinlich funktionieren.

Datum :: Parse und Datum :: Format sind eigentlich ziemlich veraltete Module. Für Datum und Zeit in Perl zu arbeiten, empfehle ich e (das ist ein Standard-Teil der Perl-Bibliothek) oder DateTime (die installiert werden muss).