in reply to Re: Junk NOT words
in thread Junk NOT words
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