[p5sagit/p5-mst-13.2.git] / ext / IO-Compress / examples / compress-zlib / filtdef

#!/usr/local/bin/perl

use strict ;
use warnings ;

use Compress::Zlib ;

binmode STDIN;
binmode STDOUT;
my $x = deflateInit()
   or die "Cannot create a deflation stream\n" ;

my ($output, $status) ;
while (<>)
{
    ($output, $status) = $x->deflate($_) ;

    $status == Z_OK
        or die "deflation failed\n" ;

    print $output ;
}

($output, $status) = $x->flush() ;

$status == Z_OK
    or die "deflation failed\n" ;

print $output ;
Commit	Line	Data
f4c6fd49	1	#!/usr/local/bin/perl
	2
	3	use strict ;
8aa25532	4	use warnings ;
f4c6fd49	5
25f0751f	6	use Compress::Zlib ;
25f0751f	7
f4c6fd49	8	binmode STDIN;
f4c6fd49	9	binmode STDOUT;
25f0751f	10	my $x = deflateInit()
f4c6fd49	11	or die "Cannot create a deflation stream\n" ;
f4c6fd49	12
25f0751f	13	my ($output, $status) ;
f4c6fd49	14	while (<>)
f4c6fd49	15	{
25f0751f	16	($output, $status) = $x->deflate($_) ;
	17
	18	$status == Z_OK
	19	or die "deflation failed\n" ;
f4c6fd49	20
	21	print $output ;
	22	}
	23
25f0751f	24	($output, $status) = $x->flush() ;
	25
	26	$status == Z_OK
	27	or die "deflation failed\n" ;
f4c6fd49	28
f4c6fd49	29	print $output ;