Commit | Line | Data |
f4c6fd49 |
1 | #!/usr/local/bin/perl |
2 | |
3 | use strict ; |
4 | local ($^W) = 1; #use warnings ; |
5 | |
6 | use Compress::Zlib ; |
7 | |
8 | #die "Usage: gzcat file...\n" |
9 | # unless @ARGV ; |
10 | |
11 | my $filename ; |
12 | |
13 | @ARGV = '-' unless @ARGV ; |
14 | |
15 | foreach my $filename (@ARGV) { |
16 | my $buffer ; |
17 | |
18 | my $file = $filename ; |
19 | $file = \*STDIN if $file eq '-' ; |
20 | |
21 | my $gz = gzopen($file, "rb") |
22 | or die "Cannot open $file: $gzerrno\n" ; |
23 | |
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 ; |
28 | |
29 | $gz->gzclose() ; |
30 | } |