Help for this page
opendir my $d, $dir;
my @f = sort { -M $b <=> -M $a } readdir $d;
my @file_list = sort { -M $b <=> -M $a } grep -f, readdir $dir_handle;
unlink @f[-0,1] if @f > 20;
use File::Spec 'catfile'; unlink map catfile($dir, $_), @f[0,1] if @file_list > 20;
use File::Spec 'catfile'; ... unlink map catfile($dir, $_), @f[0,1] if @file_list > 20;
www.com | www.net | www.org
No recent polls found