Bloques especiales BEGIN y END

Introducción

En muchas ocaciones debemos procurar ejecutar ciertas tareas antes de ejecutar nuestro código PERL, como incluir ciertos directorios para librerías, o a su término, como cerrar conexiones y/o archivos abiertos.

Descripción

Nuestro interprete PERL provee de dos bloques que se ejecutan inmediatamente antes de ejecutar e inmediatamente despues:

BEGIN { }

Se ejecuta apenas es completada su compilación, y antes de completar la compilación del script PERL en su totalidad. Puede ser especificado múltiples veces, donde se ejeutarán en el orden en que aparecen.

END { }

Se ejecuta inmediatamente antes de dar término al script, puede ser especificado múltiples veces, en cuyo caso son ejecutados en el órden inverso al que son declarados. El valor dado por exit() puede ser obtenido y modificado por medio de la variable $?.

Los bloques pueden se declarados opcionalmente como subrutina, de la forma sub END {...}

Ejemplos de Uso

Incluir Librerias

Dado que el bloque BEGIN se ejecuta antes de la complilación del resto del código, podemos incluir directorios para la búsqueda de librerías requeridas por use

#!/usr/bin/perl

BEGIN { push @INC, '../lib'; }

use Mylib ;

...

Limpiar al salir

Con END nos podemos asegurar de cerrar de forma limpia las conexiones y limpiar archivos de lock:

#!/usr/bin/perl

...

END { 
   print STRDERR "Salida con codigo de retorno $?\n" ;
   $remoteSession->logout() if defined($remoteSession) ;
   unlink $pidfile if ( defined($pidfile) ) ;
 }

Generado por Sistema y almacenado en cache