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 | #die "Usage: gzcat file...\n" |
9 | # unless @ARGV ; | |
10 | ||
25f0751f | 11 | my $filename ; |
f4c6fd49 | 12 | |
13 | @ARGV = '-' unless @ARGV ; | |
14 | ||
25f0751f | 15 | foreach my $filename (@ARGV) { |
16 | my $buffer ; | |
17 | ||
cb7abd7f | 18 | my $gz = gzopen($filename, "rb") |
19 | or die "Cannot open $filename: $gzerrno\n" ; | |
f4c6fd49 | 20 | |
25f0751f | 21 | print $buffer while $gz->gzread($buffer) > 0 ; |
22 | ||
23 | die "Error reading from $filename: $gzerrno" . ($gzerrno+0) . "\n" | |
24 | if $gzerrno != Z_STREAM_END ; | |
f4c6fd49 | 25 | |
25f0751f | 26 | $gz->gzclose() ; |
f4c6fd49 | 27 | } |