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 | ||
18 | my $file = $filename ; | |
19 | $file = \*STDIN if $file eq '-' ; | |
f4c6fd49 | 20 | |
25f0751f | 21 | my $gz = gzopen($file, "rb") |
22 | or die "Cannot open $file: $gzerrno\n" ; | |
f4c6fd49 | 23 | |
25f0751f | 24 | print $buffer while $gz->gzread($buffer) > 0 ; |
25 | ||
26 | die "Error reading from $filename: $gzerrno" . ($gzerrno+0) . "\n" | |
27 | if $gzerrno != Z_STREAM_END ; | |
f4c6fd49 | 28 | |
25f0751f | 29 | $gz->gzclose() ; |
f4c6fd49 | 30 | } |