【perl】gzipを読み込むメモ - Compress::Raw::Zlib

はじめに

perlを触っていて、
gzipなデータを読み込みたかったのでそのメモです

なにがやりたいか

APIのresponseデータなど、内部データとしてgzipデータを読み込みたかったのです。

gzipのファイルを読むという記事はぐぐれば結構あるのですが、
内部データっていうところがミソですね。

どうやるか

Compress::Raw::Zlibというcpanモジュールで簡単にできました。

$gzip_dataがgzipなデータだったとするとこんな感じです。

use Compress::Raw::Zlib;

my ($d, $status) = new Compress::Raw::Zlib::Inflate(
  -WindowBits => WANT_GZIP,
);
my $output;
$status = $d->inflate($gzip_data, $output);

サンプルコード

参考にサンプルコードを載せました

• https://github.com/tweeeety/perl-gzip-sample

おわり

Compress::Raw::Zlibなかなか便利です ＼(＾o＾)／