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

【问题标题】：How to delete files based on the extension in perl?perl中如何根据扩展名删除文件？
【发布时间】：2012-06-23 17:32:22
【问题描述】：

我有一个关于在 Perl 中删除文件的问题。我想删除扩展名为.log 的文件夹中的所有文件。在 Perl 中有一个聪明的方法来做到这一点吗？

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

【问题讨论】：

【解决方案1】：

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

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

【讨论】：

【解决方案2】：

我喜欢 Oleg 的，它太短了。我通常会破解类似的东西：

$ perl -e 'foreach my $f (@ARGV){ print `ls -l $f`;取消链接 $f }' *.log
-rw-r--r-- 1 天才无 0 Jun 21 06:15 bar.log
-rw-r--r-- 1 天才无 0 Jun 21 06:14 foo.log

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

【讨论】：