Lecture de fichier

Lecture de fichier - Perl - Programmation

Marsh Posté le 26-12-2008 à 12:51:17    

Bonjour, je cherches à récuperer les deux lignes qui suivent une ligne contenant une expression régulière seulement je ne trouve pas comment faire.
 
Si quelqu'un à la solution je lui en serai reconnaissant  :D
 
Voici le code :  
 

Code :
  1. #! /usr/bin/perl -w
  3. use strict;
  4. my $ligne;
  5. my $TERID;
  6. #my $i=1;
  7. #my $mod;
  8. print "entrer le numero de terminal a matcher\n";
  9. $TERID=<STDIN>;
  10. chomp($TERID);
  11. open (FICHIER, 'C:\detail-light.txt');
  12. while ($ligne = <FICHIER> ) {
  13. if ($ligne =~ /$TERID/) {
  14. #  $mod = $i+3;
  15. #  while($i % $mod != 0) {
  16.   print $ligne;
  17. #   $i++;
  18. #  }
  19. }
  20. }
  21. close(FICHIER);

Reply

Marsh Posté le 26-12-2008 à 12:51:17   

Reply

Marsh Posté le 26-12-2008 à 14:29:28    

bah ton algorithme n'est pas bon, quand t'es sur une ligne qui te plait, lis en 2 de plus...
 
sinon RTFM grep
 
grep -A

Reply

Marsh Posté le 26-12-2008 à 16:41:46    

C'est vrai que ça sera mieux avec grep. J'ai RTFM ^^ OMFG WTF
 
Merci ;) j'avais pas pensé a ça ...

Reply

Sujets relatifs:

Leave a Replay

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