Foro - Perl en Español

Muchas gracias, el cambio que propones funciona a la perfección. Consulta (para variar) ¿Por qué falla si el archivo de entrada está desordenado? Por ejemplo:
¿Qué debo modificar? Y creo que estoy capturando elementos innecesarios dentro de la expresión regular, como los [...] al inicio y las {...} después.

Salu2

Debes agregar la opción /s al final de la expresión regular.

Más información en tu propio ordenador en perldoc perlre, y en la Web (traducido al español).

Excelente enlace (no me lo había topado por google), "/s" funciona a la perfección.

Muchas gracias por la ayuda.
Pablo.

Para no abrir un nuevo hilo, coloco mi problema aquí. Al actualizar Perl a la versión 5.18.2 me percato que el script ya no funciona como antes.

Buscando en los foros, me percato de las advertencias que da esta versión con el uso de given/when, lo cual se puede saltear añadiendo el tema es que el script ya no funciona del todo bien, intenté cambiando el código a:lo cual creo que está correcto, pero no obtengo el resultado esperado.

Si quito la línea strict me arroja errores en las líneas donde se encuentra given/when, entonces, ¿cuáles son los cambios que debo hacer para cambiar given/when a if/elsif/else?

Mi idea es dejar el script sin given/when (u otra característica experimental de ser posible) puesto que será quitado o modificado en la versión 5.20 (acorde a lo que entendí en los foros que busqué) por lo tanto, prefiero escribir el código usando if/elsif/else para no tener problemas en el futuro.

Saludos,
Pablo

No hay cambios extraños en el motor de las expresiones regulares, así que debería funcionar igual que antes. Yo tengo docenas de programas que no he tenido que retocar.

EL given/when sí que va a seguir. Lo que es problemático es el funcionamiento del SmartMach, que ha cambiado un poco. Y como given/when depende de SmartMach, pues... lo mismo.

Si quieres quitarlo, debes entender lo que cómo funciona given/when.

En given() se indica la variable que queremos probar.
Y en when(), los valores con los que queremos comprobar si coinciden con la variable anterior.

Por ejemplo:

given($a) {
when('a') {
...;

se puede cambiar a un sencillo

if ($a eq 'a') {
...;

Hay otras situaciones en la que no vale un cambio tan sencillo. Recuerda que se usa SmartMach, así que a veces hay que sustituirlo por una serie de líneas. Sobre todo si la comparación incluye buscar coincidencia entre un valor dentro de un array o un hash. En perldoc perlop se describe lo que hace SmartMach en cada situación, y un ejemplo de código al que sustituye.

Si quitas el use v5.16 es normal que aparezcan errores en los given/when, porque entonces esas palabras no son reconocidas en la versión de Perl (al no poner use v5.16, perl trabaja como si fuera una versión anterior a v5.10).

Gracias por la respuesta y explicación, decidí cambiar el código porque tal como estaba no me funcionaba, pensé que era el uso de given/when con la modificación que realizé debería funcionar. Si cambio "eq" por "~~" funciona... pero...no sé por qué.

Saludos,
Pablo

explorer escribiste:No hay cambios extraños en el motor de las expresiones regulares, así que debería funcionar igual que antes.

Eso es lo extraño, leí las novedades de Perl 5.18 en las noticias del foro, de los cambios que están comentados, no distingo cuál es el que está interfiriendo.

explorer escribiste:El given/when sí que va a seguir. Lo que es problemático es el funcionamiento del SmartMach, que ha cambiado un poco. Y como given/when depende de SmartMach, pues... lo mismo.

Ok, si tú lo dices... es así.

explorer escribiste:Si quieres quitarlo, debes entender lo que cómo funciona given/when... Por ejemplo:
given($a) {
when('a') {
...;
se puede cambiar a un sencillo
if ($a eq 'a') {
...;
...En perldoc perlop se describe lo que hace SmartMach en cada situación, y un ejemplo de código al que sustituye.

Ok, me leí la documentación y rebusqué un rato por el foro y al final dejé el código así:
No sé si está del todo correcto, no encontré un equivalente a ~~, ya que eq no me funciona con el hash. Probé el código con Perl v5.16 y v5.18 y funciona como deseo. Un par de consultas (para variar):

• ¿Está bien escrito el código?
• ¿Existe algún equivalente a ~~?
• ¿Porque el código original dejó de funcionar en Perl v5.18?

Agradecido de los comentarios y ayuda, se despide,
Pablo

En los dos if() donde usas '~~' estás buscando un patrón en una variable escalar, así que lo puedes dejar así: una simple expresión regular.

if ( $encontrado =~ /patrón/ ) {

Genial, era justo lo que deseaba...explorer eres un maestro en Perl.
Gracias absolutas.

P.D.: Sigo pensando en por qué dejó de funcionar, tal cual estaba. el script, ¿será por qué lo probé en una máquina con win32?

No sé. Habría que ver los errores que saliesen en pantalla. O ver qué comportamiento tiene, para acotar en qué parte del programa falla.