Parcourir chaque correspondance en Perl

Question

Disons que je parcours une page de html brut à la recherche de cette regex. (La quote à la fin est intentionnelle).

m/(https?:\/\/.*?(?:'|"))/

Ce motif est susceptible de correspondre ~ 100 fois. Quel est un idiome Perl commun/un moyen rapide d'itérer à travers une liste de toutes les correspondances des groupes de capture ?

Answer 1

De la perlretut (un très bon tutoriel)

while ($x =~ /(\w+)/g) {
    print "Le mot est $1, se termine à la position ", pos $x, "\n";
}

Vous pouvez utiliser while avec le modifieur g pour itérer sur toutes les correspondances, avec $1 vous obtenez le contenu de votre groupe de capture 1, et dans cet exemple du tutoriel vous obtenez également la position avec pos.

Answer 2

Le modificateur global 'g' retourne une liste des correspondances capturées en contexte de liste :

say $_ for $str =~ /un($wanted)/g;    # Imprime seulement $wanted

Answer 3

@Zaid: Je pense que votre approche est plus compacte. J'espère que le snippet suivant vous aidera à comprendre votre exemple

my $str = 'file_%date%_%name%_%lang%.txt';
my @ts = $str =~ /%([\w]+)%/g;#           <----------Zaid a dit
print join(", ", @ts);

Sortie:

date, name, lang