linux – 如何在Perl中检测到符号链接中断？

在我看来,我只需要列出一个目录的文件,测试这是一个符号链接(-l),如果它返回false只是取消链接.

但似乎当使用readir列出所有文件时,我的破坏的符号链接不会被识别为文件.因为我的链接指向什么,我理解为什么.

那么：我如何检测Perl中的符号链接是否被破坏？

谢谢,

UPDATE

$myDir中的所有文件都是符号链接,无论是有效还是损坏.
当我显示@files时,我只得到一个有效的符号链接列表.

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