Alan Young wrote:
In trying to get something done a co-worker came up with this little regex:

perl -e 
'$a="abcde"x200;$a=~s{((\w+?)(??{!$b{$^N}++?"(?=)":"(?!)"}))}{($1)}xg;print
"$a\n";'


You've got the x flag, please use it!

--
Jayce^

/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/

Reply via email to