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