[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
25f0751f	1	#!/usr/local/bin/perl
f4c6fd49	2
f4c6fd49	3	use strict ;
8aa25532	4	use warnings ;
f4c6fd49	5
25f0751f	6	use Compress::Zlib ;
f4c6fd49	7
25f0751f	8	die "Usage: gzgrep pattern file...\n"
25f0751f	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	}