php - 在 perl 中创建可以通过 php gzuncompress 解压缩的压缩字符串

Question

我需要使用 Perl 创建一个压缩字符串，我可以使用 PHP gzuncompress 解压缩

我在 Perl 中尝试了以下内容

use IO::Compress::Gzip qw(gzip $GzipError) ;
my $input  = 'THIS IS A TEST'; 
my $output;
gzip \$input => \$output;

但 PHP 无法解压缩

如果我从 perl 中查看输出，它与使用 PHP 的 gzcompress 压缩它不同

解决这个问题的任何帮助将不胜感激

score 2 · Accepted Answer

使用Compress::Zlibcompress中的函数。

$ perl -MCompress::Zlib=compress -e 'print compress("Foo Bar\n")' | php -r 'echo gzuncompress(fgets(STDIN));'

输出：

Foo Bar

1 回答 1