Comparer la date et l'heure et la même heure en perl

Question

Je souhaite comparer la date et l'heure pour vérifier si l'horodatage du fichier que je vais ouvrir aura une date et une heure égales ou supérieures à celles de mon horodatage ceci:

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

Mon principal problème est de savoir comment le faire efficacement possible sans ajouter des bibliothèques de Perl et comment vérifier quand il y aura la situation de changement de date et l'heure sera par exemple 23:59:44

Answer 1

Time::Piece est le noyau de perl, et supporte '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"; 

était pas clair sur ce temps que $Time représenté - strptime convertit à 10:50:06, mais je devine que ce pourrait être destiné à être 01:05:06?

Si oui, alors zéro pad.

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

Pour lire l'horodatage à partir des métadonnées de fichier, vous devez stat:

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