Acortar colores en perl

[jferrero]

Si lo único que cambia es el color y contenido del resultado, te vale con

Código Perl:

print '- Dominio introducido: ';
if (@ARGV != 1) {
    print colored('NINGUNO', 'bold red'),"\n"; 
}
else {
    print colored("$DOMINIO",'bold magenta'),"\n";
}
 

O de otra forma, con el operador condicional:

Código Perl:

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