usar variable fuera de una funcion

[Raul21]

Hola:

Tengo una duda que no se como resolver. Aquí la planteo por si alguien puede echarme un mano.

Tengo un script en Perl el cual tiene un bucle principal que llama a una funcion que se llama procesado.

En esta funcion procesado cada vez que se ejecuta en el bucle obtengo el valor de una variable llamada $tiempo_inicio.

El caso es que quiero usar esta variable definida dentro de la función procesado() , fuera de dicha funcion en el script para hacer una comparacion con otra variable definida en el script y que ademas mantenga el valor que ha obtenido dentro de la funcion procesado, es decir que si ejecuto procesado() y $tiempo_inicio=120 que luego pueda comparar fuera de la funcion con ese valor (120).

Si alguien me puede ayudar se lo agradeceria.

Un saludo

[jferrero]

Código:

my $tiempo_inicio = 0;

sub procesado {
    $tiempo_inicio = 120;
}

procesado();
if ($tiempo_inicio == 120) {
    print "Si\n";
}

La declaras fuera, por lo que se convierte en global a todo el programa.

[Raul21]

Hola otra vez:

Voy a contarte lo que me ocurre es que no acabo de aclararme.


Dentro de la funcion procesado() realizo un procesado de un fichero y al final obtengo una variable $tiempo_inicio=time; que me da el tiempo en el cual se procesó el fichero por ultima vez.

El problema es que cuando se llama a la funcion procesado() si el fichero no tiene cosas nuevas a la ultima vez que se procesó no realiza el procesado() y hace un return sin pasar por la parte de codigo donde esta $tiempo_inicial.(es decir , para procesar algo en el fichero debe haber informacion nueva añadida a la que habia la ultima vez que procesó, si no sale y vuelve a intentarlo despues de un cierto tiempo)

Yo lo que quiero es poner en el bucle principal otra variable $tiempo_final=time despues de que se llama a la funcion procesado() y con esto en el bucle principal comparar el valor de $tiempo_final con el de $tiempo_inicio.

Lo que pregunto es como hacer para que el valor de $tiempo_inicio sea el valor de la ultima vez que se procesó el fichero aunque despues de ésta haya habido más veces que se ha llamado a procesado() pero no se ha actualizado el fichero.

Un saludo

[monoswim]

Creo que lo que necesitas son 4 variables...

$tiempo_inicial;
$ultimo_timepo_inicial;
$tiempo_final;
$ultimo_tiempo_final;

Para tener separado el proceso actual con el último, de ser postitivo el proceso actual debes actualizar el tiempo último con los valores actuales, deser negativo dejas el último como está...

Espero que te sirva

Saludos

[jferrero]

A mí me gustaría saber porqué necesitas hacer eso... es decir, ¿qué es lo que necesitas?

Por otra parte, el último párrafo está resuelto en el código que te mandé: la variable solo es modificada si hubo cambios.

Pero sería interesante saber por qué necesitas hacer todo eso...