Cargando

reducir la duplicidad de constantes




Pulsa corazón para recibir avisos de nuevas Respuestas

  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
  • Volver arriba

 

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


X