python - Python encode 和 gzip 的 Perl 等价物

Question

我正在尝试在 Perl 中生成一个压缩字符串，它等同于在 Python 中生成的字符串。

Python(产生正确的输出):

import gzip
test_file = 'example.json'

with open(test_file) as f:
    output_data = gzip.compress(f.read().encode())
    print(output_data)

或多或少我在 Perl 中尝试做的事情:

use Encode;
use IO::Compress::Gzip qw/gzip/;
use File::Slurp;

my $json = read_file('example.json', { binmode => ':raw' });
my $utf8_record = encode("utf8", $json);
my $output_data;
gzip \$utf8_record => \$output_data;
print $output_data;

知道我在 Perl 方面做错了什么吗？

Answer 1

您不会对 Perl 做任何错事。您的 Python 代码和 Perl 代码都使用 gzip 正确压缩了数据。只有 Perl 将输出打印为二进制，而您的 Python 代码打印输出的可读表示形式，即类似 b"\x1f\x8b..." 的内容。要获得与 Perl 类似的结果，您需要将二进制数据打印到标准输出而不是字符串表示形式，即代替 print(...) do

sys.stdout.buffer.write(output_data)

然后两个程序都会将 gzip 压缩数据写入标准输出。请注意，输出可能仍然不同，因为默认情况下它们对 gzip 使用不同的选项(压缩率、操作系统类型...)，但在这两种情况下数据都使用 gzip 进行了正确压缩。