Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (2)
As of 2017-08-20 01:40 GMT
Find Nodes?
    Voting Booth?
    Who is your favorite scientist and why?

    Results (313 votes). Check out past polls.