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; |
13 | binmode STDOUT; | |
f4c6fd49 | 14 | |
25f0751f | 15 | my ($output, $status) ; |
f4c6fd49 | 16 | while (read(STDIN, $input, 4096)) |
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 |