Perl 等效於 python 編碼和 gzip

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 正確壓縮數據。 Only Perl prints the output as binary while your Python code prints a readable representation of the output, ie something like b"\x1f\x8b..." . 要獲得與 Perl 類似的結果，您需要將二進制數據打印到 stdout 而不是字符串表示，即代替print(...)

sys.stdout.buffer.write(output_data)

然后兩個程序都會將 gzip 壓縮數據寫入標准輸出。 請注意，output 可能仍然不同，因為它們默認使用不同的 gzip 選項（壓縮率、操作系統類型...），但在這兩種情況下，數據都使用 gzip 正確壓縮。