如何刪除基於perl擴展名的文件？

Question

我有一個在Perl中刪除文件的問題。我想刪除文件夾中擴展名爲.log的所有文件。有沒有一種聰明的方式在Perl中做到這一點？

我沒有太多編碼perl的經驗。

Answer 1

快速和骯髒：unlink glob('*.log');。

我建議手動循環與opendir/readdir在目錄上進行更多的控制。

Answer 2

我喜歡Oleg's，它很短暫。我通常會破解如下：

$ 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

原因我不記得所有的命令，它很容易添加測試和正則表達式。這也打印出它做了什麼的一些跡象。選擇你的咖啡。