Jak skompresować ciąg gzip w Perlu

Question

Mam ciąg, który chciałbym skompresować przy użyciu GZip przed wstawieniem do bazy danych jako obiekt BLOB. Wydaje się jednak, że wbudowane moduły GZip Perl są przeznaczone do kompresowania plików, a nie ciągów inline.

W PHP chciałbym osiągnąć z $ sprężone = gzcompress ($ string)

Co jest Perl odpowiednik gzcompress PHP()?

Answer 1

Istnieje funkcja gzip w IO::Compress::Gzip, która powinna zrobić to, czego potrzebujesz. Coś takiego:

gzip \$input => \$output 

będzie mniej więcej równoznaczne z PHP. Zwróć uwagę na użycie odwołań do skalarów, jeśli chcesz zrobić wszystko w buforach pamięci, jeśli użyjesz zwykłych skalarów, wtedy gzip pomyśli, że są to nazwy plików.

Answer 2

Być może http://perldoc.perl.org/IO/Compress/Gzip.html?

Answer 3

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