[Perl] Conversion date en secondes Epoch
Résolu/Fermé
pianoclassique
Messages postés
108
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
19 janvier 2009
-
20 avril 2008 à 14:01
pianoclassique Messages postés 108 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 19 janvier 2009 - 20 avril 2008 à 14:27
pianoclassique Messages postés 108 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 19 janvier 2009 - 20 avril 2008 à 14:27
A voir également:
- [Perl] Conversion date en secondes Epoch
- 1 million de secondes - Accueil - Technologies
- Monnaie conversion - Télécharger - Banque & Budget
- Conversion mb en mo ✓ - Forum Bureautique
- Airpods 3 date de sortie - Guide
- Trier par date excel - Guide
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
20 avril 2008 à 14:21
20 avril 2008 à 14:21
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
pianoclassique
Messages postés
108
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
19 janvier 2009
4
20 avril 2008 à 14:27
20 avril 2008 à 14:27
Salut
merci pour ton aide ......
SVP si tu peu me donne un commentaire pour chaque ligne ou bloc de la script.
Merci.....................
merci pour ton aide ......
SVP si tu peu me donne un commentaire pour chaque ligne ou bloc de la script.
Merci.....................