Discussion :

[khasanouray]

Bonjour
Je reviens à mon pb d'hier, qui en fait se résume à ceci
comment extraire la ligne d'un fichier quand les seules constantes qui permettent de l'identifier concernent non pas la ligne en question mais les lignes qui l'encadrent.
En utilisant la fonction next if avec condition sur la ligne qui précède celle qui m'intéresse, je peux passer à ligne suivante mais comment la récuprérer puisqu'elle n'est pas identifiable.
Je sèche et j'ai vraiment besoin de passer cette difficulté.
Merci

[MarneusCalgarXP]

je n'ai pas suivi le post précédent, mais si ton fichier a un format du genre

Code :

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

1
2
3
4
5
6
7
8
9
 
MOT CLE 1
ligne1
ligne2
ligne3
MOT CLE 2
ligne4
ligne5
ligne6

(avec ligne1, 2 et 3 en relation à mot clé 1, et ligne 4, 5, et 6 en relation avec mot clé 2), il te suffit de procéder ainsi:

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
 
my $lastkeyword = '';
my %hash = ();
 
open(my $input, '<', $filename) or die();
while(<$input>) {
    if ( m/^(MOT CLE \d+)$/ ) {
        $lastkeyword = $1;
        next;
    } else {
        # si on est ici, c'est qu'on est sur une ligne normale, qu'on va stocker en relation avec le mot clé
        $hash{$lastkeyword}{$_} = 1;
    }
}
close($input);

[khasanouray]

Merci de ta réponse.
Je vais essayer ce que tu m'a envoyé.
A suivre.

[Woufeil]

Bonjour,

MarneusCalgarXP, ton code construit un hash de hash, je ne suis pas persuadé que c'est le besoin de khasanouray...

De plus, ton code suppose que tu n'as pas de ligne inutiles, est-ce le cas khasanouray ? Pourrais-t-on avoir la structure précise du fichier ainsi que du résultat attendu (avec pourquoi pas un exemple) ?

[khasanouray]

la structure attendue est du type
élt1,nom de liste1,X
élt2,--------------
élt3,--------------
élt1,------------2,X
élt2,--------------
élt3,--------------
.
.
.
élt1------------n,X
élt2,--------------
élt3,--------------