[Perl] Conversion date en secondes Epoch
Résolu
pianoclassique
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
pianoclassique Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
pianoclassique Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Désolé je déconnecter l'internet quelque minute et je ne sais pas si tu me répondre a mon question ou pas ,je répéte mon question:
Je veu un script complet avec ces syntaxe et ces prototypes comme dans le C ou le C++ .
Dans mon cas je veu un script perl qui convertir une date et un temps sous la forme de : secondes ,minutes , heure jours ,mois ,annee en une code Epoch.
Ce script n'a aucun relation de fichier log de mrtg juste je le donne une date et un temps , il les converti en Epoch.
C'est juste de la programmation.
Par exemple:
je saisie les donner suivant : 10:30:55 12/04/2008
Le resultat : 1036567881
Merci..............</gras>
Désolé je déconnecter l'internet quelque minute et je ne sais pas si tu me répondre a mon question ou pas ,je répéte mon question:
Je veu un script complet avec ces syntaxe et ces prototypes comme dans le C ou le C++ .
Dans mon cas je veu un script perl qui convertir une date et un temps sous la forme de : secondes ,minutes , heure jours ,mois ,annee en une code Epoch.
Ce script n'a aucun relation de fichier log de mrtg juste je le donne une date et un temps , il les converti en Epoch.
C'est juste de la programmation.
Par exemple:
je saisie les donner suivant : 10:30:55 12/04/2008
Le resultat : 1036567881
Merci..............</gras>
A voir également:
- [Perl] Conversion date en secondes Epoch
- Conversion mb en mo ✓ - Forum Bureautique
- 1 million de secondes - Accueil - Technologies
- Customer service epoch c'est quoi - Forum Vos droits sur internet
- Whatsapp date incorrecte ✓ - Forum Mobile
- Airpods 3 date de sortie - Guide
2 réponses
Salut,
lami20j@debian:~/trash$ cat time2epoch.pl #!/usr/bin/perl use strict;use warnings; use Time::Local; print "Date au format jj/mm/aaaa : "; chomp(my $d = <STDIN>); print "Heure au format hh:mm:ss : "; chomp(my $h = <STDIN>); my ($heure,$min,$sec) = split /:/,$h; my ($jour,$mois,$annee) = split /\//,$d; my $epoch = timegm($sec, $min, $heure, $jour, $mois-1, $annee-1900); print "$h $d -> epoch : $epoch\n"; __END__ lami20j@debian:~/trash$ perl time2epoch.pl 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