[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / examples / gzgrep

#!/usr/local/bin/perl

use strict ;
use warnings ;

use Compress::Zlib ;

die "Usage: gzgrep pattern file...\n"
    unless @ARGV >= 2;

my $pattern = shift ;

my $file ;

foreach $file (@ARGV) {
    my $gz = gzopen($file, "rb") 
         or die "Cannot open $file: $gzerrno\n" ;

    while ($gz->gzreadline($_) > 0) {
        print if /$pattern/ ;
    }

    die "Error reading from $file: $gzerrno\n" 
        if $gzerrno != Z_STREAM_END ;
    
    $gz->gzclose() ;
}
Commit	Line	Data
f4c6fd49	1	#!/usr/local/bin/perl
	2
	3	use strict ;
8aa25532	4	use warnings ;
f4c6fd49	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	}