#!/usr/local/bin/perl | |
use strict ; | |
use warnings ; | |
use Compress::Zlib ; | |
my $x = inflateInit() | |
or die "Cannot create a inflation stream\n" ; | |
my $input = '' ; | |
binmode STDIN; | |
binmode STDOUT; | |
my ($output, $status) ; | |
while (read(STDIN, $input, 4096)) | |
{ | |
($output, $status) = $x->inflate(\$input) ; | |
print $output | |
if $status == Z_OK or $status == Z_STREAM_END ; | |
last if $status != Z_OK ; | |
} | |
die "inflation failed\n" | |
unless $status == Z_STREAM_END ; | |