More than 5 years have passed since last update.

Perl で古いログ・ファイルから４つ削除する

Last updated at 2013-04-16Posted at 2013-04-15

# 古いログ・ファイルから４つ削除する
unlink @f = (
         map  { $_->[0] }
         sort { $b->[1] <=> $a->[1] }
         map  { [$_, -M] } <*.log>
       ) [0..3];