Perl:在 "unless -e"语句中找不到打印变量

Question

我有这行代码:

unless((-e $FileOne) && (-e $Filetwo) && (-e $FileThree)) {die "$!\n";}

其中，$ 变量包含具有完整路径的文件名。

此语句检查是否所有 3 个文件都存在，否则，它将死亡。

有没有我可以在 die 语句中使用的任何 Perl“特殊变量”，它可以让我知道三个文件中的哪个文件丢失了(即三个 文件中的哪个文件丢失了) -e 检查失败) ?

提前致谢。

Answer 1

您可以使用 for 循环将变量别名为 $_:

-e or die "$_: $!\n" for $FileOne, $Filetwo, $FileThree;

请注意，如果缺少 Filetwo，则甚至不会测试 FileThree 的存在(与原始代码中一样)。