Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2020-01-24 01:41 GMT
Find Nodes?
    Voting Booth?