perl - 如果列出的文件中至少有一个不存在，则获取非零退出代码

Question 1

我也不是一个 Perl 专家，但是你只评估第一个参数，并在文件不存在后立即终止你的脚本...如果第一个参数是一个不存在的文件，这既不会评估作为参数传递的所有文件，也不会继续处理其他文件。

因此，当您传递多个参数时，您的脚本将不会按预期工作（文件名）即可。

您需要首先使用例如评估所有命令行参数，foreach my $arg (@ARGV) { ... }然后相应地设置退出代码，并在最后使用该代码退出。

即这样的：

perl -p -e 'my $exit_code; BEGIN{
foreach my $arg (@ARGV) {-f $arg or $exit_code = 2} }
END{exit($exit_code)}
s/foo/bar/' non-existent-file.txt existent-file.txt

注意（可能会节省你的时间): 据我所知，它die没有自己的退出状态，也不会“直接”改变脚本的退出状态……因此，2您看到的退出代码号实际上是-f $ARGV[0]……no such file or directory这些代码号是种类有限且各具特色...因此，在受控环境中手动分配/设置它们是完全没问题的，尽管传递的参数可能是目录，那么它可能会导致不同的错误编号，但这就是“受控”的意义所在，因为您可以更改-f为-e例如或使用条件进行双重评估，甚至添加您自己的扩展错误评估/包含代码来做你想做的事情。

此外，die可以有一个副作用（例外）这将导致额外的错误代码，例如22（无效的论点）从而污染你的脚本，如果你想保留一些实际的退出状态，这可能不是你想要的......看看为什么这里...然而你也许能够部分地控制/中和这种副作用(虽然可能不可靠...请exit改用) 类似于eval{die "blabla" ... }和，在这种情况下这也可能会直接改变脚本的退出状态。

不过，你也许可以同时使用die和不是 exit-f $ARGV...并同时保留实际的退出状态，同时不会过早地终止脚本，如果您正确地将评估移动到一个END块中，如下所示：

perl -p -e 'my @arr; BEGIN{@arr = @ARGV}
END{ foreach my $arg (@arr) { -f $arg or die"no file"} }
s/foo/bar/' non-existent-file.txt existent-file.txt

Answer

我也不是一个 Perl 专家，但是你只评估第一个参数，并在文件不存在后立即终止你的脚本...如果第一个参数是一个不存在的文件，这既不会评估作为参数传递的所有文件，也不会继续处理其他文件。