Perlでファイル名変更
# .iniファイル以外で最近24時間以内に変更されたファイルの名前を変更する my $dirname = 'C:/data'; my $dir; chdir $dirname; opendir $dir, '.' or die; my @file = grep {!/(^\.|.+\.ini$)/} readdir $dir; closedir $dir; for (@file) { if ((stat)[9] > time-60*60*24) { rename $_, "del$_"; } }