Discussion :

[laurent33500]

bonjour,

voila mon problème, je cherche comment récupérer un bloc dans un fichier.
J'arrive à trouver le début du bloc mais après je voudrais aussi récupérer les X lignes suivantes.

Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
open ( FICHIER , $fichier ) ;
 
while ( <FICHIER> )
{
if ( /Salle 1/ )
{
print ;
}
}
close ( FICHIER ) ;

bloc fichier à recuperer

Temprature Salle 1

Porte droite

21°

Plafond

23°

Sol

20°

[Lolo78]

Bonjour,

sais-tu à l'avance le nombre de lignes à récupérer? Si oui, il suffit de lire le nombre de lignes voulu dans le if avec une sous-boucle while ou for. Par exemple, pour imprimer 8 lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
open my $FICHIER , "<", $fichier or die "ouverture impossible de $fichier $!";
while (<$FICHIER>) {
     if ( /Salle 1/ )  {
          print ;
          for (1..7) { # on a déjà imprimé une ligne, il ne faut en lire que 7
               my $line = <$FICHIER>;
               print $line;
          }
     }
}

Note que j'ai modifié la façon d'ouvrir le fichier pour respecter les bonnes pratiques actuellement admises par la communauté Perl. Je te conseille aussi instamment d'indenter ton code correctement.

On peut aussi le faire plus brièvement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
open my $FICHIER , "<", $fichier or die "ouverture impossible de $fichier $!";
while (<$FICHIER>) {
     if ( /Salle 1/ )  {
          print ;
          print scalar <$FICHIER> for (1..7);
     }
}

[laurent33500]

merci c'est ce que je cherchais à faire