删除与正则表达式匹配的文件

Question

在 Windows 上从与 Perl 中的某些正则表达式匹配的目录中删除所有文件的最短和最好的方法。

我的示例：从目录中删除所有 *.txt 文件，但保留 tmp.txt？视窗。

Answer 1

chdir $dir or die $!;
unlink grep { $_ ne 'tmp.txt' } <*.txt>;

Answer 2

# glob gets the names of all .txt files
# we apply grep to remove tmp.txt from the list
@files = grep (!/^tmp\.txt$/,glob('*.txt'));

# delete the files
unlink @files;

Answer 3

虽然并不完美，但也许一些冗长的内容会有所帮助。

use strict;
use warnings;

my $dir = "/tmp";
my $posreg = '.*\.txt
;
my $nexreg = '^tmp\.txt
;

opendir(my DH, $dir) || die($!);
{
    for my $file (grep { /$posreg/i
                    && ! /$negreg/i
                    && -f "$dir/$_" } readdir($DH))         
    {
        unlink($file) || die($!);
    }
}
closedir();

Answer 4

如果目录中有很多文件（10,000 个或更多），上述所有解决方案都可能存在问题，因为它们会同时读取整个文件列表。安全的做法是遍历目录，而不是一次读取全部内容。 “readdir”可以仅返回标量上下文中的下一个条目。我建议使用 while 循环更新 @hpvac 的答案，一次遍历目录一个条目。

（如果您确定永远不会有大量文件，则上述解决方案是可行的。）

Answer 5

有一个 perl 实用程序：prename（在大多数 Linux 上为rename），只需将其与 rm 结合使用：

prename `s/(?!tmp.txt)\.txt$/DELETE_THIS_
amp;` 
rm DELETE_THIS_*

输入答案后，我看到您要求使用 Windows 解决方案。我认为你最好的选择是下载（Perl 源代码）作为名称，并对其进行一些编辑，以便它可以在 Windows 上运行。