Commit | Line | Data |
---|---|---|
f4c6fd49 | 1 | #!/usr/local/bin/perl |
2 | ||
3 | use strict ; | |
8aa25532 | 4 | use warnings ; |
f4c6fd49 | 5 | |
25f0751f | 6 | use Compress::Zlib ; |
7 | ||
f4c6fd49 | 8 | binmode STDIN; |
9 | binmode STDOUT; | |
25f0751f | 10 | my $x = deflateInit() |
f4c6fd49 | 11 | or die "Cannot create a deflation stream\n" ; |
12 | ||
25f0751f | 13 | my ($output, $status) ; |
f4c6fd49 | 14 | while (<>) |
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 | |
29 | print $output ; |