(C) 2003, Tim Maher       1-10       www.TeachMePerl.com
Option-Driven Perl Grepper
perlgrep_p


#! /usr/bin/perl -wlns
# grep-like script, shows match context

our ($p); # avoid "used-only-once" warning

BEGIN {
    $USAGE="Usage: $0 'RE' [file ...]";
    # must have pattern arg
    @ARGV > 0  or  die "$USAGE\n";
    # remove arg1 and load into $pattern
    $pattern=shift ;
    $p  and  $/="" ;   # paragraph mode on
}
# Show Paragraphs That Match
/$pattern/  and  print ;