Foro - Perl en Español

por **moisesazulco** » 2010-05-22 16:26 @726

Buenas tardes. Tengo que hacer un proyecto que consta de un buscador de patrones:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Introduzca el texto deseado\n\n";
$texto=<STDIN>;
chop($texto);
print "Introduzca el patron a buscar en el texto\n\n";
$patron=<STDIN>;
chop($patron);
if ($texto =~/$patron/)
{
print "si se encuentra el patrón de búsqueda en el texto \n\n";
}
else
{
print "no se encuentra el patrón de búsqueda en el texto";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este es mi código. Éste ya me dice si el patrón buscado está en el texto ingresado. Mi pregunta es cómo hacer para que el programa me diga cuántas veces se repite el patrón en todo el texto.

Puedes hacerlo de varias maneras. La más fácil para ti, sería hacer un bucle while(), en lugar del if(), agregar la opción /g a la expresión regular, y dentro del bucle, sumar uno a una variable (incrementarlo).

La expresión regular, con el efecto de la opción /g hará repetir el bucle tantas veces como aparezca el patrón de la expresión regular dentro de la cadena a analizar. Solo te queda imprimir el valor de la variable al salir del bucle.

por **moisesazulco** » 2010-05-22 17:43 @779

ESTE ES MI NUEVO CÓDIGO, PERO TODAVÍA NO FUNCIONA BIEN

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"Introduzca el texto deseado\n\n";
$texto=<STDIN>;
chop($texto);
print"Introduzca el patron a buscar en el texto\n\n";
$patron=<STDIN>;
chop($patron);
while($texto=~/$patron/g)
{
$cont=$cont+1;
}
print"$cont\n";
<>;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

LO PODRÍA REVISAR Y AYUDARME A QUE FUNCIONE BIEN.

por **explorer** » 2010-05-22 18:07 @796

A mí sí que me funciona...

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

explorer@dv9210:~/Documentos/Desarrollo> ./kk.pl

Introduzca el texto deseado

parapaya la papa

Introduzca el patron a buscar en el texto

pa

4Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Buscador de patrones

Buscador de patrones

Publicidad

Re: Buscador de patrones

Re: Buscador de patrones

Re: Buscador de patrones

¿Quién está conectado?