#!/usr/bin/perl
$debug = 0;
use CGI qw/:standard :netscape :html3/;
use CGI::Carp 'fatalsToBrowser';
$text = param('text');
$order = param('order');
$textlen = substr(length($text),0,64000);
srand(time||$$);
randomize;
$absmaxsent = 4;
$maxsent = int(rand()*$absmaxsent+2);
$text =~ s/[^A-z\.\,\;\-\n\'\ \?\"0-9\$\:]//g;
$text =~ s/\n/ /g;
while ($text =~ s/\s\s/ /g) {};
for ($i=0; $i<(length($text)-$order); $i++) {
$key = substr($text, $i, $order);
$key =~ s/ /}/g;
push(@{$options{$key}},substr($text,$i+$order,1));
}
print header(-expires=>'now');
print "";
if ($debug) {
print "
Key options defined:";
foreach (sort keys %options) {
@keyoptions = @{$options{$_}};
$maxoption = $#keyoptions + 1;
$newchar = @keyoptions[int(rand()*$maxoption)];
print "| $_ [$maxoption, $newchar] | @keyoptions |
\n";
}
print "
";
}
$window = substr($text,0,$order);
$output = $window;
$srcwindow = $window;
while(1) {
$window =~ s/ /}/g;
if (!exists($options{$window})) {
$output .= ". $srcwindow";
$window = $srcwindow;
next;
} else {
@keyoptions = @{$options{$window}};
$maxoption = $#keyoptions + 1;
$newchar = @keyoptions[int(rand()*$maxoption)];
$output .= $newchar;
}
$scount++ if (substr($output,length($output)-2) eq ". ");
if ($scount>=$maxsent) {
$output .= "\n";
$maxsent = int((rand()*$absmaxsent)+1);
$scount = 0;
last if (length($output)>$textlen);
}
$window = substr($window,1) . $newchar;
last if $iterations++>32000;
}
$outlen = length($output);
print qq{
$output
$iterations iterations, $outlen output length, $textlen input length. © 2000 David C. Troy, dave@toad.net
|
};