有两个主要的相关系统调用stat() and lstat()，lstat()调用将告诉您它是一个符号链接（但在其他文件上，行为与stat()相同）。这允许您确定名称是符号链接。stat()系统调用跟随符号链接直到其结束，并告诉你链接末尾的文件（或目录）。如果stat()调用在符号链接上失败，那么符号链接就被破坏了，或者你试图访问一个你没有权限的目录或文件。
Perl的file test操作符包括-l来检测一个名称是否是符号链接。你可以显式地使用Perl函数stat和lstat。在这两个函数之间，你应该能够区分出一个符号链接是否断开了--但是你可能应该计划写一个函数来完成这项工作。
您可能不需要使用readlink Perl函数，但要注意底层系统readlink()调用;它不会返回以null结尾的字符串！
有趣的是，Perl和它的POSIX模块都不支持realpath()函数，但是PathTools模块支持它，如果realpath失败，在符号链接上，符号链接是不起作用的（又名中断）。

将lstat与stat结合使用：

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

更新：对我有效...

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

下面是我用来删除断开链接的一些代码：

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;

请注意，包含链接的目录必须是当前目录。readdir只返回文件名，链接可能是相对的。

检查断开的符号链接（如果存在指向符号链接的符号链接，则仅检查顶层）：

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

使用readlink()和stat()作为结果。

使用内置Perl glob函数？例如：

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

对于特定的$dir：

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

断开的符号链接是指不存在（！-e）的链接（-l）

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