我有一个perl脚本的一部分:
my @filenames = ("${home_dir}${month}_???_???.OUT",
"${home_dir}${month}_???_???.DAt");
foreach my $list (@filenames) {
unlink $list or warn "failed on $list: $!\n";
}
map { unlink(glob($_)) } @filenames;
以任何一种方式,使用“unlink $ list”命令或全局删除命令“map {unlink(glob($ _))}”从主管理器中删除文件,该命令无限期运行。
在我看来,“$ list”找不到文件,因为它可能无法正确解释通配符(??? _ ???)
有任何意见吗?
答案 0 :(得分:0)
作为一个不错的在线人:
unlink glob("${home_dir}/${month}_???_???.{OUT,DAT}");