ámbito de las variables

[monoswim]

Hoa gente, tengo un pequeño problema, tengo un script que usa funciones que están en una librería mia propia....Pero las funciones de la librería no pueden leer las variables del script del cual son llamadas.

Por cuestiones de proligidad uso la sentencia use strict y todas las variables son creadas bajo la sentencia my.

la única forma es pasarlas las variables como parámetros??????

por ejemplo:

libreria.pl
sub uno{
print "$caca";
}
1;

script.pl
use strict;
require libreria.pl;

my ($caca);
$caca = "bla bla bla";

&uno();
exit;

Desde ya muchas gracias

[kidd]

Hola monoswim:

Debido a que estas usando el pragma strict no puede hacer variables que sean globales, por lo que siempre tienes que estar enviando las variables.

Lo que te recomiendo es que en este caso uses referencias, es decir para que siempre se use la misma variable, para que me entiendas te voy a poner un ejemplo usando más o menos lo que nos mostraste:

Código:

libreria.pl
sub uno{
 my $caca = shift;
   
  #Usamos doble $ para de-referenciar 
   $$caca += 1; #Sumamos uno a la variable
 }
1;


script.pl
use strict;
require libreria.pl;

my $caca = 1;

uno(\$caca); #Llamamos la funcion para sumar 1

print $caca;  #Resultado debe de ser 2
exit;

Recuerda que cuando mandamos la referencia lo que estamos envíando es el número de byte en memoria donde se encuentra nuestra variable, por ende lo que editamos es en memoria, por lo que podemos editar la misma variable sin ningun problema.

Espero que sea de ayuda en tu problema el ejemplo que te mostre.

SALUDOS

[monoswim]

Que pasó que estabas desaparecido???...hasta tu página se había ido!!!!!!jeje

Es bueno tenerte de regreso

MonoSwim
Gracias por la respuesta!!!!!!!

[kidd]

Hola MonoSwim:

Se que me desparecí, no fue a cuenta propio pero bueno, estoy de regreso....saludos a todos los amantes de perl que andan por ahí.

SALUDOS