Utilice constantes en su programa Perl

Introducción

El uso de constantes en la programación es de utlizada para comprender de mejor manera lo que se está haciendo, por ejemplo, cuando tenemos variables de estado, es más claro usar el término ACTIVO que el valor 17, o utilizar PI frente a 3.1415927

Forma de uso

Se definen las constantes por medio de la declaración:

#/usr/bin/perl

use constant PI => 4 * atan2(1, 1);
use constant {
        PENDIENTE => 0 ,
        PROCESANDO => 1,
        TERMINADO => 2,
        TIMEOUT => 3
        } ;

use constant DIAS => qw(Domingo Lunes Martes Miercoles Jueves Sabado) ;
...

print "El valor de PI es" . PI . "\n" ;
...

while ( $estado == PROCESANDO ) { ... }
...

$d = (DIAS)[2] ;
...

Vemos diferentes formas de declaración, para el caso de PI se define mediante una operación matemática en la ejecución del script. Posteriormente se definen una serie de constante agrupadas en paréntesis de llave ( {} ), para finalmente declarar un arreglo constante con los días de la semana en español, aunque para los arreglos, la forma de accederlo posteriormente no es muy natural como se aprecia en la asignación $d = (DIAS)[2], donde los paréntesis se requieren para forzar la interpretación como arreglo.

Generado por Sistema y almacenado en cache