|
|
|
|
Bonjour,
J’ai besoin d'un script perl ?
J'ai reçu comment convertir en eposh mais svp intègre cette script de convertissions pour avoir un script complète.
je veux poser un date et un temps de forme secondes, minutes, heure et jours, mois, année.
Puis le script le convertit en codage eposh ensuite il prend le résultat en epoch pour chercher si cette résultat existe dans le fichier log de MRTG (installer sous ubuntu) ou non.
Si il existe il me rendre tout le ligne de log file correspondant a cette résultat eposh.
par exemple :
Données saisie:
Date au format jj/mm/aaaa : 12/04/2008
Heure au format hh:mm:ss : 10:30:55
10:30:55 12/04/2008 -> epoch : 1207996255
Correspond
Resultat:
Si : 1207996255 existe dans le fichier log de MRTG le resultat de script retourne tout la ligne de fichier log deMRTG 1207996255 937 713 937 713.
Sinon : 1207996255 n'existe pas.
Merci............................
Configuration: Windows XP Internet Explorer 6.0
Salut,
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__
Le résultat 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$106485010510997108 |
J'ai oublié de traiter le cas quand 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;
__END__
106485010510997108 |
Conversion date en texte sql Conversion date france vba Dos créer un nom de fichier avec la date Excel convertir date en texte Fichier docx convertir Fichier log Fichier log mysql windows Fichier wmv convertir en divx gratuit Fichier wps convertir Fichier wps convertir en word Macro convertir date en texte Perl fichier Perl fichier log Peut on supprimer les fichiers log Php convertir date Recevoir les resultats de batch sous fichier log Unix convert date timestamp Windows créer un fichier avec une date
