Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
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 musing on the Monastery: (14)
As of 2014-10-21 20:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (110 votes), past polls