Noob perl avec pb, mais j'apprend doucement

Noob perl avec pb, mais j'apprend doucement - Perl - Programmation

Marsh Posté le 30-05-2008 à 08:27:10    

Bonjour,  
Bon je suis noob en perl, j'ai un petit pb d'extraction de lignes dans un fichier texte qui se présente comme ça :  
 
2008  Nom Prénom indice
Capacité : validée
2008  Nom Prénom indice
Capacité :  En cours
2008  Nom Prénom indice
Capacité :  Echec
 
Bref j'ai ecrit un script perl de la sorte  

Code :
  1. open(FE,"resultat.txt" )|| die "Pas lu";
  3. while (<FE> )
  4. {
  6. if($_=~/2008//\n)
  7. {
  8. print $_;
  9. }
  10. }


 
 
Sans problème j'extrais la ligne 1 mais je ne trouve pas comment extraire la ligne deux en dessous séquentiellement
Je ne cherche qu'a sortir les enregistrements de 2008 car le fichier contient 10 années !
au final j'aimerais :  

Code :
  1. 2008  Nom Prénom indice
  2. Capacité :  En cours
  3. 2008  Nom Prénom indice
  4. Capacité :  Echec


Merci de votre aide , je rame !

Reply

Marsh Posté le 30-05-2008 à 08:27:10   

Reply

Marsh Posté le 30-05-2008 à 08:32:38    

C'est de la programmation, je transfère sur la section idoine.


---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me
Reply

Marsh Posté le 30-05-2008 à 08:32:53    

Ce sujet a été déplacé de la catégorie OS Alternatifs vers la categorie Programmation par Black_lord


---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me
Reply

Marsh Posté le 30-05-2008 à 09:28:25    

ok


---------------
Astro, photo, macro, brico, dodo
Reply

Marsh Posté le 30-05-2008 à 09:51:36    

perl -e 'while (<> ) { if (/^2008/) { print; print scalar <> } }'

Reply

Marsh Posté le 30-05-2008 à 23:43:09    

Une version un poil moins tricky:

Code :
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  5. open my $FE, '<', "resultat.txt" or die "Pas lu\n";
  6. my $printnext = 0;
  7. while (<$FE> ) {
  8.     if ($printnext) {
  9.         $printnext = 0;
  10.         print;
  11.         next;
  12.     }
  13.     if (/^2008/) {
  14.         $printnext = 1;
  15.         print;
  16.         next;
  17.     }
  18. }
  19. close $FE;


A partir de la quelle tu peux écrire une version un poil plus complexe,
qui tient compte de cas incomplets (car les fichiers de donnée parfaits...):
seconde ligne apres une avec 2008 ne commençant pas par "Capacité :",
ce qui semble être une de tes contraintes, et cas de deux lignes successives
commençant par 2008.

Code :
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  5. open my $FE, '<', "resultat.txt" or die "Pas lu\n";
  6. my $printnext = 0;
  7. while (<$FE> ) {
  8.     if ($printnext) {
  9.         unless (/^Capacité :/) {
  10.             if (/^2008/) {
  11.                 print " !! PAS DE CAPACITE!! \n";
  12.                 print;
  13.                 $printnext = 1;
  14.                 next;
  15.             }
  16.             chop;
  17.             print;
  18.             print " !!PAS DE CAPACITE!! \n";
  19.             $printnext = 0;
  20.             next;
  21.         }
  22.         print;
  23.         $printnext = 0;
  24.         next;
  25.     }
  26.     if (/^2008/) {
  27.         print;
  28.         $printnext = 1;
  29.         next;
  30.     }
  31. }
  32. close $FE;


 
Ou le code équivalent (pour une fois qu'on peut employer un redo, ce qui est rare, on ne va pas se gêner)

Code :
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  5. open my $FE, '<', "resultat.txt" or die "Pas lu\n";
  6. my $printnext = 0;
  7. while (<$FE> ) {
  8.     if ($printnext) {
  9.         $printnext = 0;
  10.         unless (/^Capacité :/) {
  11.             if (/^2008/) {
  12.                 print " !! PAS DE CAPACITE!! \n";
  13.                 redo;
  14.             }
  15.             chop;
  16.             print;
  17.             print " !!PAS DE CAPACITE!! \n";
  18.             next;
  19.         }
  20.         print;
  21.     }
  22.     if (/^2008/) {
  23.         $printnext = 1;
  24.         print;
  25.     }
  26. }
  27. close $FE;


Si on se permet de mettre me message d'erreur en tête de ligne, et non en bout de ligne erronnée (ou vide) comme précédemment, on aboutit a un script un peu plus élégant:

Code :
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  5. open my $FE, '<', "resultat.txt" or die "Pas lu\n";
  6. my $printnext = 0;
  7. while (<$FE> ) {
  8.     if ($printnext) {
  9.         $printnext = 0;
  10.         unless (/^Capacité :/) {
  11.             print " !! PAS DE CAPACITE!! ";
  12.             if (/^2008/) {
  13.                 print "\n";
  14.                 redo;
  15.             }
  16.         }
  17.         print;
  18.     }
  19.     if (/^2008/) {
  20.         $printnext = 1;
  21.         print;
  22.     }
  23. }
  24. close $FE;


A+,


Message édité par gilou le 31-05-2008 à 17:49:25

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 31-05-2008 à 08:24:58    

ouch grand merci pour ces exemples fournis !  


---------------
Astro, photo, macro, brico, dodo
Reply

Marsh Posté le 31-05-2008 à 17:47:04    

Damned, j'ai oublié les close en fin de script. Je les rajoute dans mon post précédent.
C'est pas bien grave, mais autant écrire du code propre.
A+,


Message édité par gilou le 31-05-2008 à 17:50:18

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed