Lecture d'un fichier et conversion date Perl
Résolu
bisbis1985
Messages postés
52
Date d'inscription
Statut
Membre
Dernière intervention
-
dubcek Messages postés 18789 Date d'inscription Statut Contributeur Dernière intervention -
dubcek Messages postés 18789 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis un débutant en Perl , J'aimerai lire un fichier de format Nombre Date Nombre et convertir la date en seconde
Exemple d'entete :
23446663 2010-08-20 23:34:23 9899292
Merci de votre aide
Je suis un débutant en Perl , J'aimerai lire un fichier de format Nombre Date Nombre et convertir la date en seconde
Exemple d'entete :
23446663 2010-08-20 23:34:23 9899292
Merci de votre aide
A voir également:
- Lecture d'un fichier et conversion date Perl
- Fichier bin - Guide
- Fichier .dat - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
8 réponses
hello
$ export TZ=$(date +%Z) $ $ cat p2 #!/usr/bin/perl use Time::Piece ; open(my $in, "<", $ARGV[0]); while (<$in>) { chomp; ($c1,$c2,$c3,$c4)=split(/\s+/); my $t = Time::Piece->strptime($c2 . " " . $c3,"%Y-%m-%d %T"); print $t->strftime("%s\n"); } $ cat a2 23446663 2010-08-20 23:34:23 9899292 $ $ ./p2 a2 1282347263 $ $ # vérifions $ d="2010-08-20 23:34:23" ; date -d "$d" +%s 1282347263 $
Bonjour
Merci pour ta réponse mais je voudrais afficher la meme forme du fichier en remplaçant 2010-08-20 23:34:23 par 1282347263
Cad
23446663 1282347263 9899292
535366367 1282347267 0029329
Et Merci bcp
Merci pour ta réponse mais je voudrais afficher la meme forme du fichier en remplaçant 2010-08-20 23:34:23 par 1282347263
Cad
23446663 1282347263 9899292
535366367 1282347267 0029329
Et Merci bcp
alors on imprime $c1, le temps et $c4, remplacer
print $t->strftime("%s\n");par
printf "%s %s %s\n", $c1, $t->strftime("%s"), $c4;
Bonjour
Je l'execute sous windows , il me donne just les 2 champ 1 er et 3 eme
perl test.pl a2,
23446663 9899292
Je l'execute sous windows , il me donne just les 2 champ 1 er et 3 eme
perl test.pl a2,
23446663 9899292
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
je l'exécute sur Linux.
Il n'y a pas de message d'erreur ?
pour voir si il lit tous les champs imprimer
Il n'y a pas de message d'erreur ?
pour voir si il lit tous les champs imprimer
printf "%s %s %s %s\n", $c1, $c2, $c3, $c4 ;