Facebook Twitter Google Digg Reddit Email Imprimir
Martes 16 de octubre de 2018
Santoral:
Eduvigis
Otros:
Día Mundial de la Alimentación
Día del Profesor
Semana:
42
Día año:
289/365 (79%)
U.F.:
27389.73
IPC:
0,3
Dolar:
683,7
Euro:
791,5
Bitcoin:
U$ 6447.3769322344
mindicador.cl
Time4VPS.EU - VPS hosting in Europe

Utilice constantes en su programa Perl

Mejora la comprensión del programa para futuras modificaciones

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.

Escrito por: Luis Hernán de la Barra, 25/08/2015

Generado por Sistema y almacenado en cache

Wyzer
Luis Hernán de la Barra
E-Mail:ldelabar@wyzer.cl
Web:www.wyzer.cl