如何让Perl命令在遇到缺失文件时返回非0退出码且继续执行后续文件

我完全懂你的需求——就是要让Perl像cat那样，碰到不存在的文件时，既要输出错误提示，又不中断后续文件的处理，最后还能返回非0的退出码。之前的方法用BEGIN块只检查第一个文件，一旦不存在就直接die终止程序，自然没法处理后面的文件。下面给你一个完美解决这个问题的方案：

perl -p -i -e '
    BEGIN { $has_errors = 0 }
    # 每次切换到新文件时检查有效性
    if (!-f $ARGV) {
        warn "Error: File \"$ARGV\" does not exist or is not a regular file\n";
        $has_errors = 1;
        close ARGV; # 跳过当前无效文件，直接处理下一个
        next;
    }
    # 你的文本替换逻辑（仅在文件有效时执行）
    s/foo/bar/;
    # 程序结束时根据错误标记设置退出码
    END { exit $has_errors }
' non-existent-file.txt existent-file.txt

关键逻辑解释： #

• BEGIN { $has_errors = 0 }：程序启动时初始化一个错误标记，默认状态为无错误。
• if (!-f $ARGV)：Perl处理文件列表时，$ARGV会自动指向当前正在处理的文件名，这里检查该文件是否是存在的普通文件。如果无效：
  • warn：只输出错误信息但不终止程序（这是和die的核心区别，保证后续文件能继续处理）。
  • $has_errors = 1：标记出现过错误，确保最后返回非0退出码。
  • close ARGV：关闭当前无效文件的句柄，让Perl直接切换到下一个文件（如果不关闭，Perl会一直尝试读取无效文件，反复触发错误）。
  • next：跳过当前文件的替换逻辑，直接进入下一轮循环。
• END { exit $has_errors }：所有文件处理完成后，根据错误标记设置退出码——有错误返回1，全部正常返回0。

额外优化建议： #

如果你需要更严谨的检查（比如文件存在但无读取权限的情况），可以把!-f $ARGV改成!-r $ARGV，这样会检查文件是否可读，覆盖更多异常场景。

测试一下效果：执行上述命令后，不存在的文件会弹出警告，存在的文件会被正常替换，最后用echo $?查看退出码，就能看到预期的非0值啦。

备注：内容来源于stack exchange，提问作者Mario Palumbo