perl - perl 命令无限期运行

Question

我有一个 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”没有找到文件，因为它可能无法正确解释通配符（???_???）

请问有什么意见吗？

Answer 1

作为一个不错的在线人：

unlink glob("${home_dir}/${month}_???_???.{OUT,DAT}");