jrelo · November 9, 2017 22:00
diff --git a/pgrep.pl b/pgrep.pl
 #!/usr/bin/env perl
 use strict;
 use warnings;
 use PerlIO::gzip;

 my $pattern = $ARGV[0];
 my $file    = $ARGV[1];
 open my $z, '<:gzip', $file or die "gunzip failed: $!\n";
 while ( <$z> ) {
        print if /$pattern/i;
 }
 close $z;
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use PerlIO::gzip;

	my $pattern = $ARGV[0];
	my $file = $ARGV[1];
	open my $z, '<:gzip', $file or die "gunzip failed: $!\n";
	while ( <$z> ) {
	print if /$pattern/i;
	}
	close $z;
No results found