Existe-t-il un raccourci Perl pour compter le nombre de correspondances dans une chaîne de caractères ?

Question

Supposons que je l'ai fait :

my $string = "one.two.three.four";

Comment dois-je jouer avec le contexte pour obtenir le nombre de fois où le motif a trouvé une correspondance (3) ? Est-il possible de le faire en utilisant une ligne unique ?

J'ai essayé ça :

my ($number) = scalar($string=~/\./gi);

Je pensais qu'en mettant des parenthèses autour $number j'ai forcé le contexte du tableau, et par l'utilisation de scalar j'aurais le compte. Cependant, tout ce que j'obtiens est 1 .

Answer 1

Cela place la regex elle-même dans un contexte scalaire, ce qui n'est pas ce que vous voulez. Au lieu de cela, mettez la regex dans un contexte de liste (pour obtenir le nombre de correspondances) et mettez que dans un contexte scalaire.

 my $number = () = $string =~ /\./gi;

Answer 2

Je pense que la manière la plus claire de décrire cela serait d'éviter la conversion instantanée en scalaire. Assignez d'abord à un tableau, et utilisez ensuite ce tableau dans un contexte scalaire. C'est en gros ce que fait le = () = L'idiome fera l'affaire, mais sans l'idiome (rarement utilisé) :

my $string = "one.two.three.four";
my @count = $string =~ /\./g;
print scalar @count;

Answer 3

Voir aussi Perlfaq4 :

Il existe un certain nombre de moyens, dont l'efficacité varie. Si vous voulez compter un certain caractère unique (X) dans une chaîne, vous pouvez utiliser la fonction tr/// comme suit :

$string = "ThisXlineXhasXsomeXx'sXinXit";
$count = ($string =~ tr/X//);
print "There are $count X characters in the string";

C'est parfait si vous ne recherchez qu'un seul personnage. Cependant, si vous essayez de compter des sous-chaînes de plusieurs caractères dans une chaîne plus grande, tr/// ne fonctionnera pas. Ce que vous pouvez faire, c'est enrouler une boucle while() autour d'une correspondance de motif global. Par exemple, comptons les entiers négatifs :

$string = "-9 55 48 -2 23 -76 4 14 -44";
while ($string =~ /-\d+/g) { $count++ }
print "There are $count negative numbers in the string";

Une autre version utilise une correspondance globale dans un contexte de liste, puis assigne le résultat à un scalaire, produisant un compte du nombre de correspondances.

$count = () = $string =~ /-\d+/g;

Answer 4

Le code suivant est-il un "one-liner" ?

print $string =~ s/\./\./g;

Answer 5

Essayez ça :

my $string = "one.two.three.four";
my ($number) = scalar( @{[ $string=~/\./gi ]} );

Il retourne 3 pour moi. En créant une référence à un tableau, l'expression régulière est évaluée dans le contexte de la liste et l'élément @{..} dé-référence la référence du tableau.