Doorway blog

http://argon.com.ru/internet/webmastering/phpoptim
Взял на “Book of Set”

Очень интересный пост. Особненно для того, чтобы натырить сорцев у гугли=)
http://googlesystem.blogspot.com/2006/05/random-files.html
По блогу там тоже много чего есть, правда не особо нужного.

Perl
________________________________________
# by Brian W. Kernighan and Rob Pike

# markov.pl: markov chain algorithm for 2-word prefixes

$MAXGEN = 10000;
$NONWORD = “\n”;
$w1 = $w2 = $NONWORD; # initial state
while () { # read each line of input
foreach (split) {
push(@{$statetab{$w1}{$w2}}, $_);
($w1, $w2) = ($w2, $_); # multiple assignment
}
}
push(@{$statetab{$w1}{$w2}}, $NONWORD); # add tail

$w1 = $w2 = $NONWORD;
for ($i = 0; $i [$r]) eq $NONWORD);
print “$t\n”;
($w1, $w2) = ($w2, $t); # advance chain
}
________________________________________
php
________________________________________
$fp = fopen(”C:/text.txt”, “r”);
$text = “”;
while($string = fgets($fp)) {
$string = trim($string);
$text.=$string.” “;
}
echo($text);
echo “”;//некорректно на блоге отображается. сорри
$maxgen = 1000;
$nonword = “\n”;
$w1 = $nonword;
$w2 = $nonword;
$words = explode(” “, $text);
foreach( $words as $word) {
$table[$w1][$w2]["suff"][] = $word;
$w1 = $w2;
$w2 = $word;
}
$table[$w1][$w2]["suff"][] = $nonword;
$w1 = $nonword;
$w2 = $nonword;
for($i = 0; $i

http://predpinimatel-cd.com.ru/book/Programming/Praktical_programing/Glava%203/Index2.htm

$text // кусок текста (слова, разделенные пробелами)
$KEYWORD //вставляемый кейворд
$percentage=10 //например 10% кейворда в тексте
$arr=split(” “,$text); - разбиваем текст на пробелы
$spacenum=count($arr); //получаем число пробелов (оно равно числу слов)
$numofkw=(int)$percentage*$spacenum/100; //получаем число кейвордов для данного куска текста
// ну а даль?е заменяем
for ($i=0;$i

пока не проверял:

$content = file(”textwithproxy.txt”);
$s = implode($content);
preg_match_all (”/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\s*:\s*\d{1,5}/”, $s, $matches);
unlink(”proxyonly.txt”);
$fp = fopen(”proxyonly.txt”,”a+”);
foreach($matches[0] as $m)
{
$m = str_replace(” “,”",$m);
fwrite($fp,$m.”\n”);
}
fclose($fp);

This is may new avatar=)

А вот про Curl по русски:
http://php.rinet.ru/manual/ru/ref.curl.php

yahoo
msn

Настал этот день! С праздником всех отсутствующих читателей этого тупого и никому не нужного блога! Ура!!! Мы еще повеселимся=)