reducir la duplicidad de constantes



   AUTOR PREGUNTA

Publicado 14 septiembre 2014 - 17:56

¿De qué manera puedo reducir la duplicidad en las constantes en Perl?


¿Tienes la misma pregunta? Yo también

 

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;

   AUTOR PREGUNTA

Publicado 14 septiembre 2014 - 21:40

Gracias Jhony solucionado