Ecrire un package perl exécuter sous Ubuntu

Bonjour,

Je veux transformer cette script ci-dessous en un package qui rassemble une fonction de convertissons de date en Epoch, fonction de la recherche et une autre fonction Main ou fonction principale qui faire la saisie des données, l’appel au fonction de convertissions et au fonction de la recherche et affiche le résultat.

Ce script prend une date et le transforme en code Epoch puis cherche ce date Epoch dans le fichier log d'un logiciel MRTG (installer sur le UBUNTU) si cette existe le script retourne toutes la ligne correspond a cette date dans le fichier log de MRTG sinon le résultat est n'existe pas.


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;




erci