Foro - Perl en Español

Hola a todos, tengo un par de dudas sobre local y undef.

Poseo este script el cual lo utilizo con cuatro opciones diferentes, traté (infructuosamente) de adaptarlo dentro de otro script (script-perl-pst2pdf-y-pdftex-t5369-30.html) con el que me han dado la mano en ocasiones anteriores, que sí utilizo con frecuencia, y me asaltan mis dudas con las maneras que tengo de leer el archivo de entrada (undef, local).

Sé que undef lee todo el archivo en memoria, pero, no sé cómo funciona local. El script es el siguiente:
Básicamente lo que hace es leer un archivo , modificar unas palabras, re ordenar unas líneas, y luego volver las palabras modificadas a la normalidad, pero en algunas ocasiones usa undef y en otras local, ¿cuál es la diferencia?

Mi idea era poder ingresar esas cuatro opciones dentro del otro script como subfunciones, modificando los nombres de las variables y las rutas... en fin, quizás no es posible, por el momento me conformo con comprender las diferencias entre local y undef.

Saludos,
Pablo

undef() lo que hace es indefinir una variable, o dicho de otra manera, le asigna el valor 'undef' (indefinido), en el caso de ser una variable escalar. En caso de arrays y hashes, lo que hace es quitarles todos los elementos (vaciarlos), como si se hubieran declarado de nuevo.

Luego, en el programa, necesitamos indefinir la variable $/, ya que de esa manera estamos indicando que el delimitar de registros es 'indefinido', o dicho de otra manera, que no hay delimitar de registros, así que, cuando leamos el primer registro, leeremos todo el archivo de golpe.

Esta operación de indefinir la variable especial $/ es algo peligrosa: afecta a todas las operaciones de lectura que se hagan a partir del momento de la indefinición.

Entonces: si en el programa solo tenemos una operación de lectura, sabemos que si indefinimos la variable con un undef(), afectará a solo esa operación de lectura y nada más... pero si en un programa hay más de una operación de lectura... quizás no querremos realizar una operación "aspiradora" en alguna de ellas, así que tendríamos que indefinir la variable $/ en un sitio, pero no en otro, lo cual es un lío.

En otras situaciones eso se resuelve con la ayuda de unas llaves: si usamos variables locales (con my()) cuando se terminen las llaves, esas variables desaparecerán y no afectarán al resto del código. El problema es que no podemos usar my() con la variable especial $/.

Y ahí es donde entra en juego local().

Esto es lo que dice perldoc -f local: «Un local() modifica las variables listadas para que sean locales en el bloque que les rodea, un archivo o un eval()».

Entonces, un local() dentro de un bloque (unas llaves), hace que las variables sean locales en ese bloque. Y también las inicializa con el valor 'undef'. Cuando el bloque termine, las variables recuperan su valor anterior. Así que, tenemos todo lo que queremos en una sola operación:
De esta manera, activamos el modo aspiradora para esa operación de lectura en concreto, y no afectará a las siguientes operaciones de lectura, si las hubiera, ya que $/ recupera su valor al final del bucle.

En tu programa...

Si todas las operaciones de lectura son del tipo "aspiradora", te vale con poner un undef $/ al principio del programa. Ese cambio afectará a todas las lecturas. Y no necesitas más undef() ni más local(). Si, en cambio, hay distintas formas de lectura de archivos, entonces quita todos los undef() y cámbialos por estructuras local() como la que te he puesto.

Mira lo que dice perldoc perlvar:

Debes ser muy cuidadoso cuando modifiques los valores por defecto de la mayor parte de las variables especiales descritas en este documento. En la mayor parte de los casos querrás localizarlas antes de cambiarlas, dado que si no lo haces, el cambio puede afectar a otros módulos que dependan de los valores por defecto de las variables especiales que hayas cambiado. Esta es una de las formas correctas de leer un archivo de una sola vez:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. open my $fh, "<", "foo" or die $!;
2. local $/; # activa el modo aspiradora localmente
3. my $content = <$fh>;
4. close $fh;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Pero el siguiente código es muy malo:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. open my $fh, "<", "foo" or die $!;
2. undef $/; # activa modo aspiradora
3. my $content = <$fh>;
4. close $fh;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

por que algún otro módulo puede querer leer datos de otro archivo en el "modo línea" por defecto, así que si se ha ejecutado el código anterior, el valor global de $/ ha cambiado para cualquier otro código que se ejecute dentro del intérprete Perl.

Normalmente, cuando una variable es localizada, quieres asegurarte que este cambio afecta al ámbito más pequeño posible. Así que a menos que ya estés dentro de un pequeño bloque "{}", debes crear uno. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. my $content = '';
2. open my $fh, "<", "foo" or die $!;
3. {
4.     local $/;
5.     $content = <$fh>;
6. }
7. close $fh;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Muchas gracias por la explicación, ahora entiendo por qué no podía adaptar algunas partes del código dentro del otro script, cambiaré el código usando local(), puesto que hago varias operaciones de lectura.

Del hilo abrir-archivo-de-texto-y-guardarlo-en-una-variable-escalar-t4379.html propones la siguiente línea (bastante corta): que es equivalente (supongo), pero, creo que debería ser: ¿estoy en lo correcto?
Saludos

Las dos formas hacen lo mismo. Y en este caso particular, la primera es mejor pero solo porque se escribe con menos caracteres.

Actualmente se recomienda usar variables escalares para almacenar el gestor de archivo, pues de esa manera es fácil llevarlo a distintas partes de un programa, por ejemplo como argumento en una subrutina.

Pero en el caso de una "lectura rápida", en la que vamos a abrir un archivo e inmediatamente leerlo por completo, pues no es necesario.