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: gzgrep pattern file...\n" |
9 | unless @ARGV >= 2; |
10 | |
11 | my $pattern = shift ; |
12 | |
13 | my $file ; |
14 | |
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 | } |