在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压缩它不同

非常感谢任何帮助解决这个问题

Answer 1

使用Compress::Zlib中的compress功能。

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

输出：

Foo Bar