-#!/usr/bin/perl
+#!/usr/local/bin/perl
use strict ;
use warnings ;
-use IO::Uncompress::Gunzip qw($GunzipError);
-die "Usage: gzgrep pattern [file...]\n"
- unless @ARGV >= 1;
+use Compress::Zlib ;
-my $pattern = shift ;
-my $file ;
-
-@ARGV = '-' unless @ARGV ;
-
-foreach $file (@ARGV) {
- my $gz = new IO::Uncompress::Gunzip $file
- or die "Cannot uncompress $file: $GunzipError\n" ;
+die "Usage: gzgrep pattern file...\n"
+ unless @ARGV >= 2;
- while (<$gz>) {
- print if /$pattern/ ;
- }
+my $pattern = shift ;
- die "Error reading from $file: $GunzipError\n"
- if $GunzipError ;
-}
+my $file ;
-__END__
foreach $file (@ARGV) {
my $gz = gzopen($file, "rb")
or die "Cannot open $file: $gzerrno\n" ;