perl - 两次打开压缩文件并使用 perl 读取

Question

我尝试两次打开 .gz 文件，脚本被挂起。下面是代码：

open(my $file, '-|', '/usr/bin/gzip -dc file.gz') or die $!;
...
close $file;
print "File closed\n";
system 'pwd';
print "opening file\n";

open(my $file2, '-|', '/usr/bin/gzip -dc  file.gz') or die "couldn't open file,$!";
print "File opened\n";
close $file2;

输出：

文件已关闭

打开文件

我想打开文件并再次阅读。我看不到打印“文件已打开”。可能是什么原因？

标签： perlcompression