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

Question

我在 Perl 中删除文件时遇到问题。我想删除带有扩展名的文件夹中的所有文件.log。在 Perl 中是否有一种聪明的方法可以做到这一点？

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

score 5 · Accepted Answer

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

我建议使用opendir/ readdirover 目录进行手动循环以获得更多控制。

score 0 · Accepted Answer

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

$ 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

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

2 回答 2