Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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 <> # # 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 :)

Replies are listed 'Best First'.
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://291682]
Approved by TStanley
[Eily]: LanX that sounds fishy to be honest
[marto]: puntastic
[choroba]: o'nest

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2017-06-29 12:38 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (662 votes). Check out past polls.