如何在 Perl 中优化符号链接删除？

使用 代替 传递给尽可能多的参数，而不是为每个文件执行一次：+;rm -f

system("find '$dir' -type l -exec rm -f {} \\+");

如果您知道需要在树中走多深，请使用，例如，这仅搜索顶层：-maxdepth M -mindepth N

system("find '$dir' -maxdepth 1 -mindepth 1 -type l -exec rm -f {} \\+");

无需将外部进程拖入其中。该任务可以纯粹在perl中使用File：：Find遍历目录树来完成：findrm

#!/usr/bin/env perl
use warnings;
use strict;
use File::Find;

my $dir = ...; # Fill in the blanks

find(sub { unlink $_ if -l $_ }, $dir);

要清理单个目录，因此不是递归的，它只需要类似

-l && unlink for glob "$dir/*";

这将是如此之快，以至于性能有点难以衡量。您删除了多少个文件，多久删除一次？

上述后缀循环使用的一个明显缺点是无法正常检查错误。这很重要，尤其是在删除大量文件时，所以最好把它写出来for

for my $file (glob "$dir/*") {
    if (-l $file) { 
        unlink $file or warn "Error unlinking $file: $!"
    }
}

这样做确实会“影响”性能，但影响程度最低。

---

我想知道......该目录中总共有多少个条目（文件、目录、链接等）？如果数量过多，例如数十万，那么这本身可能会减慢爬行的遍历速度。扫描较大的目录当然需要更多时间，但如果条目数量变得非常多，系统可能会被击倒，可以这么说;shell 中的基本列表可能需要 10-20 分钟。

有一次，我发现如果这个数字真的过多，那么系统（等）受到的影响远远超过程序。如果这个观察结果普遍成立，或者至少在你的系统上也成立，那么在Perl中这样做会更好。lsfind

如果这真的是问题所在 - 文件数量过多 - 那么我想到两个选项。

File：：Glob 库通过其bsd_glob提供了不对文件列表进行排序的方法

use File::Glob qw(:bsd_glob);

for my $file ( bsd_glob("$dir/*", GLOB_NOSORT) ) { 
    ...
}

如果确实有很多文件，这应该会有所帮助。感谢 Shawn 的评论。

另一种可能性是避免一次构建完整的文件列表，这是通过在列表上下文中使用来完成的，就像在循环中一样。在标量上下文中迭代，一次获取一个文件名，如果您真的有 200 万个文件或类似文件，这值得一试globforglob

while ( my $file = glob "$dir/*" ) { 
    if (-l $file) { 
        unlink $file or warn "Error unlinking $file: $!"
    }
}

试着把这些都计时，并澄清这有多慢，以及你有多少文件和链接。