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