|
|
|
| go ahead... be a heretic | |
| PerlMonks |
Re: Re: Junk NOT wordsby pizza_milkshake (Monk) |
| on Nov 02, 2002 at 06:56 UTC ( [id://209916]=note: print w/replies, xml ) | Need Help?? |
|
i've put an updated copy of this script at: http://www.parseerror.com/perl/nonsense-test.txt i've added some simple optimizations to noticeable speed up performance on longer examples. perl -e'$_=q#: 13_2: 12/"{>: 8_4) (_4: 6/2"-2; 3;-2"\2: 5/7\_/\7: 12m m::#;s#:#\n#g;s#(\D)(\d+)#$1x$2#ge;print'
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||