[Perl] fichier log + conversion Date en Epoch

lami20j@debian:~/trash$ cat time2epoch.pl
#!/usr/bin/perl
use strict;use warnings;
use Time::Local;

#ouverture de fichier.log
open LOG,"fichier.log"
     or die "E/S fichier.log : $!\n";

print "Date au format jj/mm/aaaa : ";
chomp(my $d = <STDIN>); # lit depuis le clavier
                        # et enleve le caractère \n s'il existe
print "Heure au format hh:mm:ss : ";
chomp(my $h = <STDIN>); # idem (voir plus haut)

my ($heure,$min,$sec) = split /:/,$h; # le format de la saisie est hh:mm:ss
                                      # le fonction split permet d'elcater la chaîne
                                      # selon le caratère de séparation :
                                      # pour obtenir les 3 variabes
my ($jour,$mois,$annee) = split /\//,$d; # idem

my $epoch = timegm($sec, $min, $heure, $jour, $mois-1, $annee-1900);
print "$h $d -> epoch : $epoch\n";

while (<LOG>){next unless /$epoch/ and print}

__END__

lami20j@debian:~/trash$ cat fichier.log
1036567881 2313865839 3040227868
1036567881 937 713 937 713
1036567581 1561 229 1561 229
1036571100 1831 240 2561 273
1036567200 2473 643 2561 1647
1036566900 2312 1305 2513 1647

1036567881 2313865839 3040227868
1036567881 937 713 937 713
1036567581 1561 229 1561 229
1036571100 1831 240 2561 273
1036567200 2473 643 2561 1647
1036566900 2312 1305 2513 1647

1036567881 2313865839 3040227868
1036567881 937 713 937 713
1036567581 1561 229 1561 229
1036571100 1831 240 2561 273
1036567200 2473 643 2561 1647
1036566900 2312 1305 2513 1647
lami20j@debian:~/trash$ perl time2epoch.pl
Date au format jj/mm/aaaa : 06/11/2002
Heure au format hh:mm:ss : 08:25:00
08:25:00 06/11/2002 -> epoch : 1036571100
1036571100 1831 240 2561 273
1036571100 1831 240 2561 273
1036571100 1831 240 2561 273
lami20j@debian:~/trash$

lami20j@debian:~/trash$ cat time2epoch.pl
#!/usr/bin/perl
use strict;use warnings;
use Time::Local;

#ouverture de fichier.log
open LOG,"fichier.log"
     or die "E/S fichier.log : $!\n";

my $test;

print "Date au format jj/mm/aaaa : ";
chomp(my $d = <STDIN>); # lit depuis le clavier
                        # et enleve le caractère \n s'il existe
print "Heure au format hh:mm:ss : ";
chomp(my $h = <STDIN>); # idem (voir plus haut)

my ($heure,$min,$sec) = split /:/,$h; # le format de la saisie est hh:mm:ss
                                      # le fonction split permet d'elcater la chaîne
                                      # selon le caratère de séparation :
                                      # pour obtenir les 3 variabes
my ($jour,$mois,$annee) = split /\//,$d; # idem

my $epoch = timegm($sec, $min, $heure, $jour, $mois-1, $annee-1900);
print "$h $d -> epoch : $epoch\n";

while (<LOG>){next unless /$epoch/ and print and ++$test;}
print "$epoch n'existe pas\n" unless $test;

__END__