/
usr
/
share
/
doc
/
perl-IO-Compress
/
compress-zlib
/
/usr/share/doc/perl-IO-Compress/compress-zlib
mkdir
upload
Name
Size
Mode
Actions
filtdef
437
0644
edit
dl
rm
filtinf
470
0644
edit
dl
rm
gzcat
495
0644
edit
dl
rm
gzgrep
463
0644
edit
dl
rm
gzstream
314
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-IO-Compress/compress-zlib/gzgrep
(463B)
#!/usr/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() ; }
Save
cmd:
run