Acortar colores en perl

[neodani]

Iniciado por 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"; 
    exit;
}
print colored("$DOMINIO",'bold magenta'),"\n";
 

El else no es necesario, por la presencia del exit().

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"
    ;
 

Entendido, me liaba al hacerlo todo en una linea :P
Así se ve mucho mas claro.