Cómo verificar y eliminar un enlace simbólico, si existe, usando Perl?

Question

if (-e "$ENV{MYHOME}/link") { 
    system("rm $ENV{MYHOME}/link"); 
} 

Este es el código que se utiliza para verificar si existe un enlace simbólico y eliminarlo si lo hace.

Estoy siguiendo un error donde este código no funciona. No he podido averiguarlo a partir de ahora, pero lo que está sucediendo es que este código no puede eliminar el enlace simbólico, lo que da como resultado un error 'Archivo existe' en la línea.

¿Quería comprobar si hay alguna falla fundamental con esta técnica? También leí acerca de http://perldoc.perl.org/functions/unlink.html, pero me gustaría saber si el enfoque actual no se recomienda debido a alguna razón.

Answer 1

sólo tiene que utilizar:

if (-l "$ENV{MYHOME}/link") { 
    unlink "$ENV{MYHOME}/link" 
     or die "Failed to remove file $ENV{MYHOME}/link: $!\n"; 
} 

Si la falla de desenlace, que va di porqué. El -l pregunta si el objetivo es un enlace. El -e pregunta si el archivo existe. Si su enlace es a un archivo inexistente, devolverá falso y su código no eliminará el enlace.

Answer 2

Su código solo tendrá los permisos del usuario bajo el que se ejecuta. ¿Es posible que el enlace simbólico sea propiedad de otro usuario y no se pueda escribir?

Además, siempre existe la posibilidad de que $ ENV {} MYHOME no contiene lo que usted cree ...

Answer 3

respectivos sistemas operativos tienen su propio errno.h. Yo usaría Errno.pm para manejar cada error.

use Errno; 
use File::Spec; 

my $dir = File::Spec->catfile($ENV{MYHOME}, 'link'); 

if (!unlink $dir) { 
    if ($! == Errno::ENOENT) { 
     die "Failed to remove '$dir'. File doesn't exist:$!"; 
    } 
}