はじめに
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);
サンプルコード
参考にサンプルコードを載せました
おわり
Compress::Raw::Zlibなかなか便利です \(^o^)/