Vergleichen von Datum und Uhrzeit und die gleiche Zeit in Perl

Question

Ich möchte Datum und Uhrzeit vergleichen, ob der Zeitstempel aus der Datei, die ich öffnen werde, gleich oder größer sein wird, als wenn mein Zeitstempel aussieht dies:

$Date = "20170608"; 
$Time = "105006"; 

Mein Hauptproblem ist, wie es ohne Zugabe von perl-Bibliotheken effizient möglicherweise zu tun ist und wie es zu überprüfen, wenn es geht Situation Datum Schalt sein und die Stunde wird zum Beispiel 23.59.44

Answer 1

Time::Piece ist Kern in Perl und unterstützt 'strptime'.

#!/usr/bin/env perl 

use strict; 
use warnings; 
use Time::Piece; 

my $Date = "20170608"; 
my $Time = "10506"; 

my $ts = Time::Piece->strptime("$Date $Time", "%Y%m%d %H%M%S"); 
print $ts, "\n"; 

print "Delta:", $ts->epoch - time(), "\n"; 

Waren auf welchem ​​Zeitpunkt unklar, dass $Time vertreten - strptime wandelt sie in 10.50.06, aber ich vermute, es könnte seine 01.05.06 bestimmt?

Wenn ja, dann Null-Pad.

$Time = sprintf ("%06d", $Time); 

Um den Zeitstempel aus den Metadaten der Datei zu lesen, dann müssen Sie stat:

my $mtime = (stat $filename)[9];