Bonjour,
 
Je début en Perl et je ne parviens pas à effectuer une opération de routine. Je veux extraire d'un fichier texte toutes les chaines contenus entre deux limiteurs.
 
Le code l'expliquera mieux que moi:

 
J'arrive à extraire une chaîne mais le fichier en questions en comporte des centaines. Je n'arrive pas à créer une boucle pour tout extraire intelligemment.
 
Merci d'avance pour votre aide.

il faut que tu fasses une boucle autour du pattern mattching avec la balise g
 

 
(mais je n'ai pas testé le code, c'est l'esprit général)

Merci pour ta réponse.
 
J'obtiens une boucle infinie sur une seule des entrées que je veux extraire. Je ne comprends pas pourquoi. Une idée ?

Un truc comme ceci devrait le faire:

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
use File::Slurp;
my $content = read_file("test-parsing.html" );
 
#on enlève les espaces et sauts de lignes
$content =~ s/\n|\s+//g;
 
my $limiteur_arg1 = '<strong>';
my $limiteur_arg2 = '</strong>';
my @matched = ($content =~ /$limiteur_arg1(.*?)$limiteur_arg2/g);
 
print join("\n", @matched);

Note: il ne traite pas le cas d'un <strong>...<strong>...</strong>...</strong> imbriqué qui nécessite un traitement plus complexe (il ne s'occupera que du premier niveau)
si tu veux imprimer la liste dans un fichier ouvert dont le handle est $fh, faire:
print $fh "$_\n" foreach (@matched);
 
A+,

Merci Gilou, c'est tout bon.
 
Bonne soirée ++

Je viens de voir en le relisant qu'il y avait une fôte de frappeuh:
/)g; au lieu de /g);
 
A+,