¿De qué manera puedo reducir la duplicidad en las constantes en Perl?
reducir la duplicidad de constantes
Iniciado por
Pascual
, sep 14 2014 17:56
#1 AUTOR PREGUNTA
Preguntas Similares
Esto también te interesa!
#2
Publicado 14 septiembre 2014 - 18:24
Prueba el siguiente código en tu aplicación el cual se encarga de eliminar la duplicidad por completo:
use Readonly;
Readonly my $LOG_DIR => "/var/log";
Readonly my $LOG_FILENAME => "$LOG_DIR/file1.log";
Readonly my $ETC => '/etc/app1';
Readonly my $LOG4PERL_CONF_FILE => "$ETC/log4perl.con";
Readonly my %CONF_FILES => map { $_ => "$ETC/config$_.xml" } 1 .. 5;