Blame examples/filtdef

Packit d03632
#!/usr/local/bin/perl
Packit d03632
Packit d03632
use Compress::Raw::Zlib ;
Packit d03632
Packit d03632
use strict ;
Packit d03632
use warnings ;
Packit d03632
Packit d03632
binmode STDIN;
Packit d03632
binmode STDOUT;
Packit d03632
Packit d03632
my $x = new Compress::Raw::Zlib::Deflate()
Packit d03632
   or die "Cannot create a deflation stream\n" ;
Packit d03632
Packit d03632
my $output = '' ;
Packit d03632
Packit d03632
while (<>)
Packit d03632
{
Packit d03632
    $x->deflate($_, $output) == Z_OK 
Packit d03632
        or die "deflate failed\n" ;
Packit d03632
Packit d03632
    print $output ;
Packit d03632
}
Packit d03632
Packit d03632
$x->flush($output) == Z_OK
Packit d03632
    or die "flush failed\n" ;
Packit d03632
Packit d03632
print $output ;