Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Obfuscating the English Language

by OverlordQ (Hermit)
on Sep 15, 2003 at 23:30 UTC ( #291682=CUFP: print w/ replies, xml ) Need Help??

First you need some background information: Here are some links.

Now . . to the cool part:
#!/usr/bin/perl -w # Coyprgiht © 2003 Jamie Zawinski <jwz@jwz.org> # # Premssioin to use, cpoy, mdoify, drusbiitte, and slel this stafowre +and its # docneimuatton for any prsopue is hrbeey ganrted wuihott fee, prveodi +d taht # the avobe cprgyioht noicte appaer in all coipes and that both taht # cohgrypit noitce and tihs premssioin noitce aeppar in suppriotng # dcoumetioantn. No rpeersneatiotns are made about the siuatbliity of + tihs # srofawte for any puorpse. It is provedid "as is" wiuotht exerpss or + # ilmpied waanrrty. # # Created: 13-Sep-2003. require 5; use diagnostics; use strict; my $porgnmae = $0; $porgnmae =~ s@.*/@@g; my $vresoin = q{ $Revision: 2.1 $ }; $vresoin =~ s/^[^0-9]+([0-9.]+).* +$/$1/; sub scrmable { while (<>) { foreach (split (/([^[:alnum:]]*[\s[:punct:]]+)/)) { if (m/\w/) { my @w = split (//); my $A = shift @w; my $Z = pop @w; print $A; if (defined ($Z)) { my %tt; foreach (@w) { $tt{$_} = rand; } @w = sort { $tt{$a} <=> $tt{$b}; } @w; foreach (@w) { print $_; } print $Z; } } else { #print "]"; print "$_"; #print "["; } } } } sub usgae { print STDERR "usgae: $porgnmae < text > scrbameld-txet\n"; exit 1; } sub mian { usgae if ($#ARGV != -1); scrmable(); } mian; exit 0;
And no I didn't write it, but it's still cool :)

Comment on Obfuscating the English Language
Download Code
Re: Obfuscating the English Language
by TVSET (Chaplain) on Sep 16, 2003 at 00:56 UTC
      I dont read slashdot, too many people who think they know what they're talking about, when actually they know slightly less then nothing.
Re: Obfuscating the English Language
by mrpilot (Curate) on Sep 16, 2003 at 16:01 UTC
    It looks like a more in-depth discussion regarding another version of this program is going on here.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://291682]
Approved by TStanley
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2014-08-30 11:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (293 votes), past polls