Acortar colores en perl

[neodani]

Iniciado por jferrero

Código Perl:

print '- Dominio introducido: ', colored('NINGUNO', 'bold red'), "\n" if @ARGV != 1;
 

Si usas Perl v5.10, entonces queda un poco más corto:

Código Perl:

say '- Dominio introducido: ', colored('NINGUNO', 'bold red') if @ARGV != 1;
 

El problema de hacerlo así es que pierdo el contenido del else....

Código PERL:

if ($NumArg != 1){
       print "- Dominio introducido: ";print color 'bold red';print "NINGUNO\n\n"; print color 'reset';
       exit
   }else{
       print "- Dominio introducido: ";print color 'bold magenta';print "$DOMINIO \n\n"; print color 'reset';
   }
 

Si el numero de argumentos es 1, debería mostrar el dominio coloreado de color magenta

- Dominio introducido: pepito.com

Sabéis si se puede modificar tu respuesta para el caso del Else?

Muchas gracias de antemano!