¿Hay un atajo de Perl para contar el número de coincidencias en una cadena?

Question

Supongamos que tengo:

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

¿Cómo debería jugar con el contexto para obtener el número de veces que el patrón encuentra una coincidencia (3)? ¿Se puede hacer esto usando un trazador de líneas único?

yo probamos este:

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

pensé que al poner paréntesis alrededor de $number, me fuerzo contexto matriz, y por el uso de scalar, me gustaría obtener el recuento. Sin embargo, todo lo que obtengo es 1.

Answer 1

Eso pone la expresión regular en contexto escalar, que no es lo que desea. En su lugar, coloque la expresión regular en el contexto de la lista (para obtener el número de coincidencias) y ponga que en contexto escalar.

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

Answer 2

Prueba esto:

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

Devuelve 3 para mí. Al crear una referencia a una matriz, la expresión regular se evalúa en el contexto de la lista y el @{..} quita la referencia de la matriz.

Answer 3

Creo que la forma más clara de describir esto sería evitar la conversión instantánea a escalar. Primero asigne una matriz y luego use esa matriz en contexto escalar. Eso es básicamente lo que el lenguaje =() = va a hacer, pero sin la expresión idiomática (muy poco frecuente):

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

Answer 4

También, ver Perlfaq4:

Hay un número de maneras, con diferentes eficiencia. Si quieres un recuento de un solo carácter determinado (X) dentro de una cadena, puede utilizar la función tr /// así:

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

Esto está bien si estás en busca de un solo carácter. Sin embargo, si intenta contar varias subcadenas de caracteres dentro de una cadena más grande, tr /// no funcionará. Lo que puede hacer es enrollar un ciclo while() alrededor de una coincidencia de patrón global. Por ejemplo, vamos a contar números enteros negativos:

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

Otra versión utiliza un partido global en el contexto de lista, a continuación, asigna el resultado a un escalar, produciendo un recuento del número de coincidencias.

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

Answer 5

otra manera,

my $string = "one.two.three.four"; 
@s = split /\./,$string; 
print scalar @s - 1; 

Answer 6

es el código después de una sola línea?

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

Answer 7

El método de Friedo es: $a =() = $b =~ $c.

Pero es posible simplificar aún más esta a solo ($a) = $b =~ $c, así:

my ($matchcount) = $text =~ s/$findregex/ /gi;