Perl 初心者コーナー Part24

[0315 nobodyさん 03/06/13 21:37 ID:???]

>>311
$path = ".";
opendir(DIR, $path) or die;
unlink grep { /^tmp.*/ and -f "$path/$_" } readdir(DIR);
closedir(DIR);