compress::zlib求助

magnet2008

我看过cpan的帮助文档后，感觉对于zlib解压应该是如下代码：
use strict;
use warnings;
use Compress::Zlib;
my $file = 'UF_BUG_10993429_CMCC_S60V3_1.6.0_D141_20100716194921.dat';

#利用Compress::Zlib来进行zlib解压
my $buffer;
my $gz = gzopen( $file, "rb" ) or die "Cannot open $file: $gzerrno\n";
my $str;
while ( $gz->gzread($buffer) > 0 ) {
        $str .= uncompress($buffer);

        #        print "$buffer";
}

#      die "Error reading from $file: $gzerrno" . ($gzerrno+0) . "\n" if $gzerrno != Z_STREAM_END ;
$gz->gzclose();

#print "$str";
#print "\n";
#按照格式分割文件
my $filenum = substr( $str, 0, 2 );
print "$filenum\n";
第一个问题：die出报是什么错：结果是00
第二个问题：这样解压正确吧？但是得到的记过我觉得不是正确的，因为得到的数据应该是数字，但输出的结果趋势L,寻求帮助，或者指明解决的方法？？
多谢各位大哥大姐了？？？

magnet2008

这应该没有错误。