Discussion :

[Gugul]

Bonjour a tous, je suis nouveau sur le forum et débutant en Perl.
Je rencontre un léger soucis...
Je dois traiter un fichier texte relativement long et extraire certaines données.

Toutes les données que je dois récupérer sont sous forme de blocs commençaient par le mot "intro"

ex:
intro
contenu du bloc de texte.....
...........
...........
............
intro
contenu du bloc de texte2........
...........
...........
............
intro
.......

J'ai d'abord pensé utiliser une recherche de motif du type:

If (/intro/ ... /intro/)
...

Je récupère bien les informations contenues entre les balises "intro".

Le souci est que cette balise "intro" sert a la fois d'indicateur de fin d'un bloc et de début du bloc suivant.

Au final je ne récupère qu'un bloc sur deux...
Quelqu'un a t'il une solution à me suggérer ?

Suite du problème, le nombre de ces blocs à traiter est variable suivant les fichiers.
Je voudrai ensuite insérer chacun des blocs dans un tableau.
Ne connaissant pas à l'avance le nombre de blocs que je vais récupérer, il faudrait donc (je pense à l'aide d'une boucle) que je crée un tableau a chaque fois qu'un bloc est trouvé dans le fichier.
Une sorte de création dynamique (désolé si je m'exprime mal, j'essaie avec mes mots de définir ce que je dois faire..).

D'avance merci à la personne qui pourra éclairer ma lanterne.

[Philou67430]

Si ton fichier ne contient QUE des blocs qui commencent avec intro, il est possible de faire plus simple, mais s'il peut contenir autre chose, alors voici une idée pour traiter tes deux problèmes à la fois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my @bloc = ();
while (my $line = <STDIN>) {
  my $in_bloc = $line =~ /^intro/ ... $line =~ /^intro/;
  # En fin de bloc, on affiche le bloc, on le vide et on relit la même ligne pour commencer un nouveau bloc
  if ($in_bloc =~ /E0/) {
    print "BLOC: ", (join "", @bloc);
    @bloc = ();
    redo;
  }
  push @bloc, $line if $in_bloc;
}
print "BLOC: ", (join "", @bloc) if @bloc;

Ceci permet de ré-évaluer le flip-flop de l'opérateur ... avec la même ligne du fichier, pour détecter un début de bloc.

Cela dit, il est possible de réaliser à peu près la même chose sans l'opérateur d'intervalle, simplement en testant la présence de intro qui représente toujours un bloc terminé si le bloc est non vide (sans oublier en sortie de boucle de traiter le dernier bloc). Il faut pour cela que le fichier commence par une ligne intro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
my @bloc = ();
while (my $line = <STDIN>) {
  if ($line =~ /^intro/ && @bloc) {
    print "BLOC: ", (join "", @bloc);
    @bloc = ();
  }
  push @bloc, $line;
}
print "BLOC: ", (join "", @bloc) if @bloc;

Je n'ai pas testé exactement le même code, il peut donc contenir des erreurs.

[Gugul]

D'accord, bah ca a l'air de fonctionner, je vais essayer de me débrouiller pour la suite, En tout cas merci pour le coup de main!!!