Discussion :

[oliviernouhi]

Bonjour,

Je voudrais utiliser dans mon programme la ligne courante, et précédente.

Par exemple pour mon algo :

Code :

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

1
2
3
4
Si (ligne_précédente = toto et ligne_suivante = tutu)
    alors blabla
    Sinon
          bloblo

Je sais récupérer la ligne courante avec :

Code :

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

1
2
while ( my $ligne = <FICHIER> )
if ( ( $ligne =~ toto )

Comment faire pour la ligne précédente ?

Merci d'avance et bonne journée

[Philou67430]

Une méthode (sans lire tout le fichier d'un coup) est la suivante :
Lire les lignes dans un tableau dont on maintient en permanence 3 lignes.
La première sera la ligne avant, la deuxième la ligne courante, la troisième, la ligne suivante (il faudra traiter les cas particulier de la fin avec undef par exemple).
Pour traiter la ligne courante, il faudra donc toujours avoir lu la ligne suivante :

Idée de modèle de script (non testé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub traitement {
  my @lignes = @_;
  if ($lignes[0] =~ /toto/ && $lignes[2] =~ /tutu/) {
    # blabla
  }
  else {
    # bloblo
  }
}
 
push @lignes, <STDIN> foreach 1 .. 2;
while (<STDIN>) {
  push @lignes, $_;
  unshift @lignes;
  traitement(@lignes);
}

Dans ce contexte, ton fichier doit contenir au moins 3 lignes, et la première et la dernière lignes ne sont pas traitées (car ne possèdent respectivement pas de ligne précédente et de ligne suivante).

Sinon, tu peux lire tout le fichier d'un coup (s'il n'est pas gigantesque), et traiter le fichier dans le tableau :

Code :

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

@lignes = <STDIN>;

[oliviernouhi]

Meric je me suis inspiré de ton idée pour stocker mes lignes dans mon tableau et travailler dessus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# !usr/bin/perl -w
use strict;
use warnings;
 
open FICHIER, '<', "test_lignes.txt" or die("E/S : $!\n");
 
my @t = ();
my $i = 0;
 
while ( my $ligne = <FICHIER> ) {
		$i++;
		$t[$i] = $ligne;
		print $t[$i];
 
 
}
# print $t[1], $t[2];
if (( $t[1] =~ m/^toto\s*/ ) && ( $t[2] =~ m/^tutu\s*/ )){
			print "\nOK OK OK OK OK";
	}
 
close FICHIER;

Encore merci bonne soirée