如何根据perl中的扩展名删除文件？

Question

我在删除Perl中的文件时遇到问题。我想删除扩展名为.log的文件夹中的所有文件。在Perl中有一种聪明的方法吗？

我没有太多编码perl的经验。

Answer 1

快而脏：unlink glob('*.log');。

我建议在目录上使用opendir / readdir手动循环以获得更多控制权。

Answer 2

我喜欢奥列格，这很疯狂。我通常会破解类似的东西：

$  perl -e 'foreach my $f (@ARGV){ print `ls -l $f`; unlink $f }' *.log
-rw-r--r-- 1 The Genius None 0 Jun 21 06:15 bar.log
-rw-r--r-- 1 The Genius None 0 Jun 21 06:14 foo.log

因为我记不起所有命令，并且在测试和正则表达式中添加很容易。这也打印出了它做了什么的一些迹象。选择你的咖啡。