eg% peg /needle/i haystack
eg% peg "!(/^=\w/ .. /^=cut/) and /whatever/" *pm
####
eg% peg needle haystack
eg% peg /needle/ haystack
##
##
eg% peg -inHC1Tm1 FOO words.txt
words.txt-420- afloat
words.txt:421: afoot
words.txt-422- aforementioned
##
##
eg% cat haystack | peg -i needle
##
##
eg% peg -i needle
##
##
eg% peg -p "/\.p[ml]$/i" -M 48h whatever
##
##
$Peg_p{p} = 'pl:pm:t'; # peg_ini.pl
##
##
eg% peg -p p -M 2d whatever
##
##
eg% peg -z "/^sub \w+/" foo *pm
##
##
$Peg_z{p} = '/^(?:\s*sub\s+\w|=head|__(?:END|DATA)__)/'; # peg_ini.pl
##
##
eg% peg chmod Temp.pm -nz p
**** (331) sub _gettemp {
523: chmod(0600, $path);
545: chmod(0700, $path);
**** (645) sub _force_writable {
647: chmod 0600, $file;
##
##
# peg_ini.pl
$Peg_longopt{'ignore-dir'} = sub {
my $argv_ref = shift;
my $dir_name = shift @$argv_ref or die;
unshift @$argv_ref, "-p", qq{ \$File !~ m:(^|/)$dir_name/: };
};
##
##
eg% peg foo --ignore-dir CVS