Commentaire sur ce script perl

#!/usr/bin/perl
use strict;use warnings; #utilisation des pragma pour
	                #afficher les messages d'erreur
	                #et pour pragma strict :
	                #- le variables doivent être déclarées (locale ou globale)
	                #- rendre impossible l'utilisation de références symboliques
	                #- rendre impossible l'utilisation de mots non declarés
	                     
use Time::Local;

open LIRE,"epoch.log" 
or die "E/S ! $!\n";# ouverture du fichier en lecutre

while(<LIRE>){   # le fichier est parcouru ligne par ligne
/^(\d+)\s+(.*)/; # capture de nombre répresentant les seconds epoch
	        # dans la variable $1
	        # qui sera utilisé par la fonction localtime
my ($sec, $min, $heure, $jour, $mois, $annee) = (localtime($1))[0..5];
# localtime envoi une liste de 9 éléments
# on a besoin seulement de 6 premiers
# (localtime($1))[0..5] c'est une tranche de la liste
# envoyée par localtime

$mois+=1;     # les mois envoyés par localtime sont de 0 à 11
	     # $mois =+1 est équivalent avec $mois = $mois +1
$annee+=1900; # nécessaire pour obtenir l'année
print;        # affiche de la ligne du fichier
# affiche de la conversion de seconds epoch en date format jj/mm/aa hh:mm:ss
printf ("%02d/%02d/%02d %02d:%02d:%02d $2\n",$jour,$mois,$annee,$heure,$min,$sec);
# conversion de secondes epoch en utilisant les valeurs obtenus
# avec localtime
my $epoch = timegm($sec, $min, $heure, $jour, $mois-1, $annee-1900);

print "$epoch $2\n"; # affiche les secondes epoch et la 2ème capture
	            # contenu par $2
print "-" x 50,"\n"; # après chaque traitement de ligne
	            # écrit un tiret 50 fois
}
__END__

root@debian:~# perl epoch.pl