Рандомайзер текста он-лине (создаёт варианты текста на основе чегонадо)

Код (perl):
#!/usr/bin/perl

$inp="Это {исходный||входной|начальный|входящий} текст для {примера|пробы|испытания}, если вам {нужны|требуются}\n{функции|возможности}, которые {предоставляет|может выполнять|выполняет|исполняет} этот скрипт,\nто {используйте|применяйте} его бесплатно.";

$tmp1=&TextWordRandomizator($inp);

print "$tmp1\n\n";
exit;

#--- функция ---

sub TextWordRandomizator(){
my $tmp=$_[0];
$tmp=~s/(\x7B)([\S\s]+?)(\x7D)/&SubTextWordRandomizator();/sge;
$tmp=~tr/ / /s;
return $tmp;
}
sub SubTextWordRandomizator(){
my @tmpm=split(/\x7C/, $2);
my $tmp=@tmpm;
if ($tmp<2){return "$1$2$3";}
$tmp=$tmpm[int(rand($tmp))];
return $tmp;
}




PHP код:
define("CHOICE_COUNT", 10);
define("MAX_REST_COUNT", 5);

function callback($matches) {
$v = preg_split("/(? return str_replace("||", "|", (count($v) == 1 ? "{" . $v[0] . "}" : $v[array_rand($v)]));
}
$str = "Это {простой|не сложный} но {сильный|нужный} {сервис|интернет сервис|утиль|веб-сустем}, который {несомненно|определённо|стопудово|полюбому} будет полезен {веб|web}-мастерам и {SE оптимизаторам|труженикам в сфере оптимизации веб для поисковых систем}.
{Сервис|Интернет сервис} помогает {избавить себя от|избежать} пустой траты времени, и высвободить {это|освободившееся} время для {куража с девками|поездки в Венецию|трёхмесячного отдыха на Сейшельских островах|полёта в качестве космического туриста на околоземную орбиту}.";
$choices = array();
$rest = 0;
while (count($choices) < CHOICE_COUNT) {
$begin_count = count($choices);
$choices[] = preg_replace_callback("/\{([^{}]*?)\}/", "callback", $str);
$choices = array_unique($choices);
if (count($choices) > $begin_count)
$rest = 0;
else
$rest++;
if ($rest >= MAX_REST_COUNT)
break;
}
echo implode("\n\n", $choices);
?>

еще скачать тут http://forum.searchengines.ru/attachment.php?attachmentid=1539&d=1155546238 чего-то

Еще один:

PHP код:
$replace_blocks = array();
$parsed_str = preg_replace_callback("/\{([^{}]*?)\}/", "callback", $_POST['text']);
$choices = create_choices($parsed_str);
echo implode("
", $choices);

function callback($matches) {
global $replace_blocks;
$v = preg_split("/(? if (count($v) == 1)
return str_replace("||", "|", "{" . $v[0] . "}");
$replace_blocks[] = array_map(create_function('$v', 'return str_replace("||", "|", $v);'), $v);
return "[__REPLACE_BLOCK_" . (count($replace_blocks) - 1) . "__]";
}

function create_choices($cur_text, $cur_block = 0) {
global $replace_blocks;
if ($cur_block >= count($replace_blocks))
return array($cur_text);
$choices = array();
for ($i = 0; $i < count($replace_blocks[$cur_block]); $i++)
$choices = array_merge($choices, create_choices(str_replace("[__REPLACE_BLOCK_{$cur_block}__]", $replace_blocks[$cur_block][$i], $cur_text), $cur_block + 1));
return $choices;
}
?>

Копируем в файл, файл кидаем на сервак, создаем простенькую формочку, которая будет методом POST передавать переменную text и получаем в браузере все варианты разделенные (
).

и тут http://seanalyzer.ru/randomize/randomize.zip скачать можно

MORE...

К сожалению скрипт (php) не фурычит, в обоих вариантах ошибка в коде, в регулярном выражении:
$v = preg_split("/(?
Т.е. как будто оно урезано напрочь.