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