Commit | Line | Data |
---|---|---|
642e522c | 1 | #!/usr/local/bin/perl |
2 | ||
3 | use Compress::Zlib ; | |
4 | use strict ; | |
5 | use warnings ; | |
6 | ||
7 | #die "Usage: gzcat file...\n" | |
8 | # unless @ARGV ; | |
9 | ||
10 | my $file ; | |
11 | my $buffer ; | |
12 | ||
13 | @ARGV = '-' unless @ARGV ; | |
14 | ||
15 | foreach $file (@ARGV) { | |
16 | my $gz = gzopen($file, "rb") | |
17 | or die "Cannot open $file: $gzerrno\n" ; | |
18 | ||
19 | print $buffer while $gz->gzread($buffer) > 0 ; | |
20 | ||
21 | die "Error reading from $file: $gzerrno" . ($gzerrno+0) . "\n" | |
22 | if $gzerrno != Z_STREAM_END ; | |
23 | ||
24 | $gz->gzclose() ; | |
25 | } |