CODEWITHSUNDEEP
perlsymlink
Spredzy
Spredzy

Reputation: 5164

How can I detect that a symlink is broken in Perl?

I would like to remove a broken symlink in a directory using Perl.

In my mind I just had to list the file of a directory and test is this a symlink (-l) and if it returns false just unlink it.

But it appears that when using readir to list all files my broken symlinks are not recoganized as a file. Because my link is pointing to nothing I understand why.

All the file in $myDir are symlinks, either valid or broken. When I display @files I only get a list of valid symlink.

opendir DIR, $myDir;
my @files = grep(/$regexp/,readdir(DIR));
closedir DIR;
print "filenames : @files\n";

Upvotes: 8

Views: 7654

Answers (7)

Zebedee
Zebedee

Reputation: 1

A broken symlink is a link (-l) that does not exists (!-e)

perl -e 'print "broken: $_\n" for grep { -l and ! -e } glob("*");'

Upvotes: 0

Mazangaz
Mazangaz

Reputation: 9

Using the built-in Perl glob function ? For examples:

 @files = <*>;
 foreach $file (@files) {
   print $file . "\n";
 }

For a specific $dir:

 @files = <$dir*>;
 foreach $file (@files) {
   print $file . "\n";
 }

Upvotes: 0

salva
salva

Reputation: 10244

Combining lstat with stat:

say "dangling link at $fn" if (lstat $fn and not stat $fn);

update: it works for me...

salva@topo:~/t/dl$ perl -E 'opendir $dh, "."; say $_ for grep { !stat $_ and lstat $_ } readdir $dh'
foo
salva@topo:~/t/dl$ ls -l
total 0
-rw-rw-r-- 1 salva salva  0 2011-07-05 12:34 f
lrwxrwxrwx 1 salva salva 11 2011-07-05 12:00 fii -> /etc/shadow
lrwxrwxrwx 1 salva salva 12 2011-07-05 11:59 foo -> /etc/hjdkshf

Upvotes: 8

Jonathan Leffler
Jonathan Leffler

Reputation: 754090

There are two main relevant system calls, stat() and lstat(). The lstat() call will tell you that it is a symlink (but on other files, behaves the same as stat()). This allows you to determine that the name is a symlink. The stat() system call follows a symlink to its end, and tells you about the file (or directory) at the end of the link. If the stat() call fails on the symlink, then the symlink is broken or you're trying to access a directory or file where you have no permission.

The Perl file test operators include -l to detect whether a name is a symlink. You can use the Perl functions stat and lstat explicitly. Between these, you should be able to sort out whether a symlink is broken or not - but you should probably plan to write a function to do the job.

You probably don't need to use the readlink Perl function. Beware the underlying system readlink() call; it does not return a null-terminated string!

It is interesting that neither Perl nor its POSIX module supports the realpath() function. However, the PathTools module does support it. If realpath fails, on a symlink, the symlink is non-functional (aka broken).

Upvotes: 9

Peder Klingenberg
Peder Klingenberg

Reputation: 41135

Use readlink() and stat() the result.

Upvotes: 2

ysth
ysth

Reputation: 98398

Check for broken symlinks (checking only the top level if there are symlinks to symlinks):

use strict;
use warnings;
use autodie;
opendir my $dirh, '.';
while (my $file = readdir $dirh) {
    if ( -l $file ) {
        my $target = readlink $file;
        if ( ! -e $target && ! -l $target ) {
            print "$file -> $target broken\n";
        }
    }
}

Upvotes: 3

cjm
cjm

Reputation: 62109

Here's some code I've used to remove broken links:

chdir $dir        or die;
opendir(DIR, '.') or die;

foreach my $link (readdir DIR) {
  next unless -l $link and not -e readlink($link);

  print "Removing broken link $link\n";
  unlink $link;
}

closedir DIR;

Note that it's important that the directory containing the links is the current directory. readdir returns only filenames, and the links might be relative.

Upvotes: 6

Related Questions