perl - 如果文件不存在，为什么我到 zcat 的 Perl 管道不会死？

Question

如果我的 gz 文件不存在，为什么它不死？

$ cat test.pl    
open(FILE, "zcat dummy.gz |") or die "DIE";

$ ./test.pl    
zcat: dummy.gz: No such file or directory

如果我正常读取文件，它会按预期工作:

$ cat test2.pl    
open(FILE, "dummy.gz") or die "DIE";

$ ./test2.pl    
DIE at ./test.pl line 2.

Answer 1

您的 open成功(因为它成功运行了 zcat)，你不会得到 zcat的退出代码，直到您关闭文件描述符。

您可能想在开始之前检查文件是否存在并且是否可读，例如。

die "unable to read file" unless (-f "dummy.gz" and -r "dummy.gz")