perl - perlの拡張子に基づいてファイルを削除するには?

Question

Perl でのファイルの削除に関して問題があります。拡張子が のフォルダ内のすべてのファイルを削除したい.log。Perlでこれを行うスマートな方法はありますか?

perl のコーディング経験はあまりありません。

Answer 1

高速でダーティ: unlink glob('*.log');.

opendirただし、より詳細に制御するには、 / readdirover ディレクトリを使用した手動ループをお勧めします。

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

すべてのコマンドを覚えることができないため、テストと正規表現を簡単に追加できます。また、これはそれが何をしたかのいくつかの兆候を出力します。コーヒーをお選びください。