Re: Semcarlbd letrtes sepur! (Scrambled letters super!)

* Etienne Grossmann <etienne@xxxxxxxxxxxxxx> [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."