En Perl, cómo contar el número de ocurrencias de coincidencias exitosas en función de una condición en sus posiciones absolutas
Usando solouno Sustituto de Perl o declaración de expresión regular coincidente, ¿cómo podemos modificar el siguiente código:
Necesito modificar el valor de$ patrón en el siguiente código de manera que el código cuente el número de veces que se encuentra una coincidencia exitosa en la cadena, siempre que la posición absoluta de la coincidencia satisfactoria satisfaga una determinada condición.
$pattern = "F1";
$string = "F1234F12F1F1234F12F13";
$count = 0;
while ($string =~ /$pattern/g) {$count++}
print $count;
Como ejemplo de la condición en posición absoluta, podría pensar en:
ABSOLUTE_POSITION ES DIVIDABLE por 5
En este caso y en función del valor de$ string arriba, el resultado sería: 4.
Tenga en cuenta que una vez que se completa el código, la única línea que cambia en diferentes condiciones en la posición absoluta de una coincidencia exitosa, sería la primera línea del código.
Gracias por cualquier ayuda