get content from bad gzip files (using Perl build-in Package)

当你用gunzip/gzip -d不能解开.gz打包的文件时， 可以用Perl的Build-in Package:Compress::Zlib来用程序读出文件内容。这对内容是文本的打包文件特别有用。

用法：
use Compress::Zlib;

$gz = gzopen("$fn", "rb") ;
while ($gz->gzread($buffer) > 0)
{ print O $buffer ; ##or using other means deal with $buffer
};
$gz->gzclose() ;