如何在 Perl 中 gzip 压缩字符串

【问题标题】：How do I gzip compress a string in Perl如何在 Perl 中 gzip 压缩字符串
【发布时间】：2014-07-31 11:37:34
【问题描述】：

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

在 PHP 中，我将使用 $compressed = gzcompress($string)

来完成此操作

什么是 PHP 的 gzcompress() 的 Perl 等效项？

【问题讨论】：

【解决方案1】：

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

gzip \$input => \$output

将或多或少等同于您的 PHP。如果您想在内存缓冲区中执行所有操作，请注意对标量的引用，如果您使用纯标量，那么gzip 会认为它们是文件名。

【讨论】：

【解决方案2】：

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

【讨论】：

【解决方案3】：

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

【讨论】：