|
|
|
| Perl: the Markov chain saw | |
| PerlMonks |
Re: Regex requiredby sauoq (Abbot) |
| on May 03, 2012 at 18:38 UTC ( #968797=note: print w/ replies, xml ) | Need Help?? |
|
perl -nle '/-{5}BEGIN\sCERTIFICATE-{5}(.*?)-{5}END\sCERTIFICATE-{5}/s and print $1'
-sauoq "My two cents aren't worth a dime.";
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||