Perl one-liner si no lógica

Question

Estoy evaluando si ciertas variables coinciden o no con los valores esperados. Las variables se configuran en la memoria por un determinado programa, cuyos valores se pueden acceder desde el shell con un programa personalizado.

Estoy canalizando la salida del comando shell para awk obtener el campo específico que quiero y luego quiero ejecutarlo a través de perl para ver si coincide con el valor esperado. Por ejemplo,

ysgrp autostart | awk -F\: '{print $1}' | perl -e 'print {"True"} else {print "False"} if /on/' 

Sin embargo, estoy recibiendo quejas de Perl sobre compilación errores cerca de "} else". ¿Cómo maneja uno la lógica if/then/else en un perl one-liner?

Answer 1

No se puede utilizar una condición else en un sufijo condicional. También se puede usar un operador condicional ternario así:

perl -e 'print /on/ ? "True" : "False"' 

O utilizar bloques explícitos como esto:

perl -e 'if (/on/) { print "True" } else { print "False" }' 

Answer 2

Uno no lo hace, excepto mediante el operador ternario ?:; la sintaxis foo if bar no es compatible con else.

Answer 3

Se podría hacer:

... | perl -ne 'print /on/ ? "True" : "False"' 

pero por favor no lo haga! Usted sería mejor hacer:

... | grep -qF on && echo True || echo False 

Answer 4

Esta parte:

awk -F\: '{print $1}' | perl -e 'print {"True"} else {print "False"} if /on/' 

se pueden manejar en Perl (si recuerda awk correctamente):

perl -F/:/ -lane 'print $F[0] =~ /on/ ? "True" : "False"' 

Tenga en cuenta el uso del interruptor -n, sin el cual su perl one-liner no funcionará. También tenga en cuenta el interruptor -l, que agrega una nueva línea a su impresión, que es algo que supongo que desea. De lo contrario su salida será algo como:

TrueTrueTrueFalseTrueFalse