Select Code to Download

Select or download this

    eg% peg /needle/i haystack

    eg% peg "!(/^=\w/ .. /^=cut/) and /whatever/" *pm

Select or download this

    eg% peg  needle  haystack
    eg% peg /needle/ haystack

Select or download this

    eg% peg -inHC1Tm1 FOO words.txt
    words.txt-420-    afloat
    words.txt:421:    afoot
    words.txt-422-    aforementioned

Select or download this
```
    eg% cat haystack | peg -i needle
```
Select or download this
```
    eg% peg -i needle
```

Select or download this

    eg% peg -p "/\.p[ml]$/i" -M 48h whatever

Select or download this

    $Peg_p{p} = 'pl:pm:t'; # peg_ini.pl

Select or download this
```
    eg% peg -p p -M 2d whatever
```
Select or download this
```
    eg% peg -z "/^sub \w+/" foo *pm
```

Select or download this

    $Peg_z{p} = '/^(?:\s*sub\s+\w|=head|__(?:END|DATA)__)/'; # peg_ini
+.pl

Select or download this

    eg% peg chmod Temp.pm -nz p
    **** (331) sub _gettemp {
...
    545:    chmod(0700, $path);
    **** (645) sub _force_writable {
    647:  chmod 0600, $file;

Select or download this

    # peg_ini.pl
    $Peg_longopt{'ignore-dir'} = sub {
...
        my $dir_name = shift @$argv_ref or die;
        unshift @$argv_ref, "-p", qq{ \$File !~ m:(^|/)$dir_name/: };
    };

Select or download this
```
    eg% peg foo --ignore-dir CVS
```