Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Re: Txet Maglning Glof, Ayobndy?

by Cody Pendant (Prior)
on Sep 16, 2003 at 07:19 UTC ( [id://291745]=note: print w/replies, xml ) Need Help??


in reply to Re: Txet Maglning Glof, Ayobndy?
in thread Txet Maglning Glof, Ayobndy?

Hmm, if I do this:
$str = ' According to a researcher at an English university, it doesn\'t matter in what order the letters in a word are.'; $str =~ s/(\w)(\w+)/split"",$2;$,="";$,.=splice@_,rand@_,1while@_;$1.$ +,/eg; print $str;

I get "Anogdcric to a reecasrreh at an Enghsli uyirenvist, it dnseo't matter in wtha oderr teh leettrs in a wdor are."

Which doesn't fit the brief.

Some words are not mangled, and nearly all of them have the wrong last letter.



($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss') =~y~b-v~a-z~s; print

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://291745]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (4)
As of 2024-04-20 00:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found