La documentación oficial de la función unlink
dice que será false
si hay algún error, pero cuando intento probar su valor para ver si es falso, el compilador me odia:
#!/usr/bin/perl
use utf8;
use strict;
use warnings;
my $fichero = "una_prueba";
if (system("touch", $fichero) != 0) {
die "No se pudo crear $fichero (estatus $?)";
}
print "Fichero $fichero creado.\n";
if (unlink($fichero) == false) {
die "No se pudo remover $fichero: $!";
}
print "Fichero $fichero removido.\n";
exit(0);
Cuando intento compilar ese programa, el compilador me da este error y no hace nada:
Bareword "false" not allowed while "strict subs" in use at ejemplo-falso line 15.
Execution of ejemplo-falso aborted due to compilation errors.
Pensando que quizás tenía que marcar el valor como cadena, lo cambié así:
if (unlink($fichero) == "false") {
Cuando hice eso, esta vez el programa sí pudo ejecutarse, pero con esta queja misteriosa:
Fichero una_prueba creado.
Argument "false" isn't numeric in numeric eq (==) at ejemplo-falso line 15.
Fichero una_prueba removido.
Dado que funcionó correctamente, ¿hay realmente algún problema con escribirlo así?
¿Se debe hacer caso a esa advertencia ahí — o no?
En efecto, la pregunta fundamental aquí es ¿cómo se debe (o no se debe) comparar un valor booleano en Perl?
Esta pregunta fue inspirada por esta pregunta de SO y también por esta pregunta aquí. Prefiero esperar a que la conteste la comunidad aquí en vez de dejar una respuesta mía.