[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / examples / filtinf

#!/usr/local/bin/perl

use strict ;
local ($^W) = 1; #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 ;
	4	local ($^W) = 1; #use warnings ;
	5
	6	use Compress::Zlib ;
	7
	8	my $x = inflateInit()
	9	or die "Cannot create a inflation stream\n" ;
	10
	11	my $input = '' ;
	12	binmode STDIN;
	13	binmode STDOUT;
	14
	15	my ($output, $status) ;
	16	while (read(STDIN, $input, 4096))
	17	{
	18	($output, $status) = $x->inflate(\$input) ;
	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