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

Dav*_*ave 10 compression perl gzip

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

在PHP中我会用$ compressed = gzcompress($ string)来完成这个

什么是Perl相当于PHP的gzcompress()?

mu *_*ort 26

IO :: Compress :: Gzip中有一个gzip函数可以满足你的需要.像这样的东西:

gzip \$input => \$output
Run Code Online (Sandbox Code Playgroud)

会或多或少等同于你的PHP.如果要在内存缓冲区中执行所有操作,请注意使用对标量的引用,如果使用普通标量,gzip则会认为它们是文件名.