Foro - Perl en Español

Estimados,

Tengo el siguiente problema: deseo que mi programa busque un patrón dentro de un archivo de texto y me imprima la línea completa de este.

Necesito saber cómo puedo realizar la condición para que el texto que encuentre sea estricto. Ejemplo:

Deseo buscar el patrón “juan”.

El programa que realicé me traerá:



Yo solo necesito que imprima juan y no las líneas que contengan la palabra juan.

Muchas Gracias
Saludos

Adjunto código:

Se suele pensar en expresiones regulares, cuando hablamos de buscar patrones, pero, en este caso, queremos buscar una cadena exacta. En ese caso es mejor usar el operador de comparación 'eq', que prueba la igualdad entre cadenas de caracteres.

Y, también, importante: si estamos leyendo líneas de un fichero de texto, hay que recordar que esa línea aún contiene el/los caracteres de fin de línea o retorno de carro.

Aunque... no tiene mucho sentido guardar todas las líneas iguales a la que buscamos: si son todas iguales, el contenido de @cliente será un montón de elementos todos iguales... ¿No será otra cosa lo que quieres guardar?

>Aunque... no tiene mucho sentido guardar todas las líneas iguales a la que buscamos: si son todas iguales, el contenido de @cliente será un montón de elementos todos iguales...

Iba a decir lo mismo, si lo que quieres es contar las líneas que contienen juan hay formas más simples, por ejemplo usa grep() y manda el resultado a una variable de tipo escalar