[p5sagit/p5-mst-13.2.git] / cpan / IO-Compress / examples / compress-zlib / filtinf

#!/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 ;
Commit	Line	Data
f4c6fd49	1	#!/usr/local/bin/perl
	2
	3	use strict ;
8aa25532	4	use warnings ;
f4c6fd49	5
25f0751f	6	use Compress::Zlib ;
f4c6fd49	7
25f0751f	8	my $x = inflateInit()
f4c6fd49	9	or die "Cannot create a inflation stream\n" ;
	10
	11	my $input = '' ;
25f0751f	12	binmode STDIN;
25f0751f	13	binmode STDOUT;
f4c6fd49	14
25f0751f	15	my ($output, $status) ;
f4c6fd49	16	while (read(STDIN, $input, 4096))
f4c6fd49	17	{
25f0751f	18	($output, $status) = $x->inflate(\$input) ;
f4c6fd49	19
	20	print $output
	21	if $status == Z_OK or $status == Z_STREAM_END ;
	22
	23	last if $status != Z_OK ;
	24	}
	25
	26	die "inflation failed\n"
	27	unless $status == Z_STREAM_END ;
	28