Как сделать gzip сжатие строки в Perl

Question

У меня есть строка, которую я хотел бы сжать с помощью GZip перед вставкой в ​​базу данных в виде BLOB. Тем не менее, похоже, что встроенные модули GZip Perl предназначены для сжатия файлов, а не встроенных строк.

В PHP я хотел бы сделать это с $ сжат = gzcompress ($ строка)

Что такое эквивалент Perl из gzcompress РНР()?

Answer 1

Функция gzip в IO::Compress::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)