我如何gzip压缩Perl中的字符串

Question

我有一个字符串，我希望在作为BLOB插入数据库之前使用GZip进行压缩。但是，内置的GZip Perl模块似乎都是为压缩文件而设计的，而不是内联字符串。

在PHP中我会用 $ compressed = gzcompress（$ string）

来完成

什么是Perl相当于PHP的gzcompress（）？

Answer 1

IO::Compress::Gzip中有gzip个功能可以满足您的需求。像这样：

gzip \$input => \$output

或多或少等同于您的PHP。如果你想在内存缓冲区中做所有事情，请注意使用对标量的引用，如果你使用普通标量，那么gzip会认为它们是文件名。

Answer 2

也许是http://perldoc.perl.org/IO/Compress/Gzip.html？

Answer 3

use Compress::Zlib;
#then $out = compress($in) or $out = uncompress($in)