Acortar colores en perl

[neodani]

Buenas,

Me pregunto si no existe una forma más ligera de hacer este comando

Código PERL:

$NumArg = @ARGV; # NumArg almacena el nú de argumentosi
if ($NumArg != 1){
        print "- Dominio introducido: ";print color 'bold red';print "NINGUNO\n"; print color 'reset';
}
 

El resultado que quiero conseguir es

- Dominio introducido: NINGUNO

Muchas gracias de antemano!

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

[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!

[neodani]

Lo he intentado así, que si no es igual a 1 muestre ninguno y finalice el programa, y si es igual a 1 muestre el dominio, pero no funciona correctamante, por qué? :S

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


syntax error at ./perl_stats.sh line 36, near "){"
syntax error at ./perl_stats.sh line 45, near "}"
Execution of ./perl_stats.sh aborted due to compilation errors.

Muchas gracias de antemano!

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

[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.