Foro - Perl en Español

¡Hola!

Estoy comenzando a usar expresiones regulares y estoy intentando hacer estos "ejercicios":

Palabras que:
- empiecen y acaben con la misma vocal
- acaben en vocal acentuada
- solo contengan la vocal 'u'
- con cuatro o más letras 's'
- contengan dos vocales

Para el primer caso:


Así me coge palabras como: uva, ira...

¿Cómo puedo hacerlo para que coja palabras que acaben y empiecen en vocal, pero que sean de más de 3 letras?
¿Y para que acaben y empiecen con la misma vocal?

Estoy un poco perdido, ¡je,je!

¡Un saludo y gracias!

Bienvenido a los foros de Perl en Español, foreop.

foreop escribiste:¿Cómo puedo hacerlo para que coja palabras que acaben y empiecen en vocal, pero que sean de más de 3 letras?

El comodín '.' solo coincide con un carácter, así que hay que ponerle un modificador para que coincida con 3 o más caracteres.

Ponlo así: .{3,}

foreop escribiste:¿Y para que acaben y empiecen con la misma vocal?

Esto requiere que la "segunda vocal" sea la misma que la "primera vocal". Es decir: el patrón debe ser capaz de recordar cuál fue la primera vocal, para indicar cuál debe ser la segunda.

Lo que debes hacer es capturar la primera vocal, con paréntesis de captura, y luego, en la parte de la segunda vocal, pones \1, que estará haciendo referencia al primer par de paréntesis de captura. Queda así:

/^([aeiou]).{3,}\1$/

Más información en perldoc perlre

Me he expresado mal respecto a lo de 3 letras. Yo quiero buscar tanto uva como ebro, es decir palabras que empiecen y terminen por vocal, sin importar el numero de letras que haya por medio.

Si pongo: /^[aeiou].[aeiou]$/ Empieza y termina por vocal, pero solo hay una letra en medio, yo quiero que pueda haber "infinitas" xD
Lo he intentado con *, y algunos mas pero me salen cosas un poco raras.

Lo de capturar mediante parentesis, si me ha quedado claro

¿Como compruebo vocales acentuadas?

Muchas gracias

foreop escribiste:Me he expresado mal respecto a lo de 3 letras. Yo quiero buscar tanto uva como ebro, es decir palabras que empiecen y terminen por vocal, sin importar el numero de letras que haya por medio.

Si pongo: /^[aeiou].[aeiou]$/ Empieza y termina por vocal, pero solo hay una letra en medio, yo quiero que pueda haber "infinitas" xD
Lo he intentado con *, y algunos mas pero me salen cosas un poco raras.

Prueba con el operador "avaricioso" .* . Cuidado, porque también capturará espacios en blanco.

Más información en perldoc perlre, y en la sección "El asterisco" en la página Expresiones regulares de Wikipedia.

foreop escribiste:¿Cómo compruebo vocales acentuadas?

¿Escritas en qué codificación? Por lo general, es mejor usar un layer de E/S para traducir el texto que leemos a la codificación interna de Perl, y a partir de ahí es más fácil hacer esa búsqueda.

De esto ya hemos hablado en otras ocasiones: Reemplazar caracteres acentuados en archivo

Ya me funciona lo de los acentos. No entiendo esto:



Encoding se refiere a la codificación del script. Ahora ya no puedo ejecutar el script con "./script.pl". Me dice "cannot execute binary file". Estoy usando la consola del MINGW. ¿Por qué?

El open IO se supone que es para leer y escribir ficheros en UTF-8, ¿por qué log.txt me lo saca como "ANSI"?

Por otro lado, para las palabras que solo contengan la vocal 'u', ¿por qué no me sirve: "/[u][^aeio]/"?

¡¡Gracias!!

foreop escribiste:Ahora ya no puedo ejecutar el script con "./script.pl". Me dice "cannot execute binary file". Estoy usando la consola del MINGW. ¿Por qué?

Quizás falta la primera línea de shebang.

foreop escribiste:El open IO se supone que es para leer y escribir ficheros en UTF-8, ¿por qué log.txt me lo saca como "ANSI"?

¿Quién te dice que está en "ANSI"? ¿No será Unicode 16?

foreop escribiste:Por otro lado, para las palabras que solo contengan la vocal 'u', ¿por qué no me sirve: "/[u][^aeio]/"?

Esa expresión quiere decir: "encuentra un 'u' seguida por 'algo' que no sea ni 'a', ni 'e', ni 'i', ni 'o'.

Quizás sea más sencillo buscar por "que no esté la 'u', de principio a fin, en cualquier número de letras": /^[^u]+$/.

Ya tengo todas las expresiones regulares hechas

Lo de "ANSI" no sé por qué era, el Notepad++ lo marcaba como ANSI, ahora sí sale UTF-8.

Solo me quedan un par de dudas respecto a la codificación.



Con ese código:

1. Tengo que ejecutarlo como: perl script.pl (./script.pl me dice "cannot execute binary file").
2. Los caracteres acentuados, no se ven bien en la consola. (La consola usará codificación diferente).
3. Lee y escribe archivos UTF-8 perfectamente.

¿Por qué pasa 1?

¿Qué debería hacer para poder abrir un archivo en cualquier codificación como utf-8?

¡Gracias!

Para ejecutarlo como ./script.pl comprueba dos cosas:

1.- El archivo es ejecutable:
2.- La ruta del intérprete Perl: Pon la que te devuelva el comando o pon directamente

Para abrir cualquier archivo con codificación utf-8, hay varias formas, aquí te doy una. Añade la siguiente instrucción al principio del programa:

Ya le dí permisos y comprobé la ruta... y nada xD. Quizás sea por el MINGW.

Lo que yo quiero es:
* Abrir un archivo, sin importar la codificación.
* Tratarlo como si fuese utf-8.
* Escribir otro archivo, con la misma codificación que el primero.

Sería como una especie de traductor, para trabajar siempre con la misma codificación sin importar los archivos.
¿Eso existe en Perl? ¿O habría que implementarlo?

¡Muchas gracias!
Una comunidad muy activa, ¡enhorabuena!

Sí existe. El módulo es Encode, y las funciones encode y decode.