Thanks for the link, it has a nice discussion. And for the one-liner; I didn't quite realize one could put all that in a s///e.
Cheers, Etienne On Thu, Sep 18, 2003 at 12:00:18PM +0200, A. Pagaltzis wrote: # * Etienne Grossmann <[EMAIL PROTECTED]> [2003-09-18 09:29]: # > I hared a sutdy has been dnoe on taht scjebut in an Eigslnh # > urtiivesny, but I coannt get hold of it. Any ionirmtfoan on # > that sceujbt is welomce. # # http://www.bisso.com/ujg_archives/000224.html # # > perl -pe 'sub r{join"",map chop,sort map{rand().$_}shift=~/(.)/g};s/\b(\w)(\w*)(\w)\b/$1.r($2).$3/eg' # # perl -pe's/(?<=[a-z])([a-z]+)(?=[a-z])/join"",map chop, sort map rand().$_,$1=~m[.]g/ige' # perl -MList::Util=shuffle -pe's/(?<=[a-z])([a-z]+)(?=[a-z])/join"",shuffle$1=~m[.]g/ige' # # -- # Regards, # Aristotle # # "If you can't laugh at yourself, you don't take life seriously enough." -- Etienne Grossmann ------ http://www.isr.ist.utl.pt/~etienne
