Re: Semcarlbd letrtes sepur! (Scrambled letters super!)
Sven Neuhaus <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <[email protected]> |
On Thu, Sep 18, 2003 at 08:44:45AM +0100, Etienne Grossmann wrote:
> PS : Ok, ok, the ublmaecsrnd sprict is :
>
> perl -pe 'sub r{join"",map chop,sort map{rand().$_}shift=~/(.)/g};s/\b(\w)(\w*)(\w)\b/$1.r($2).$3/eg'
Slhgit iomeevmnrpts
perl -pe'sub r{join"",map chop,sort map rand.$_,split//,pop}s/(?<=\w)\w+(?=\w)/r($&)/eg'
Tehre must be a beettr way...
--
Keep your laws off my body!