Парсер кеев с mail.ru

Написал скрипт для парсинга кеев с mail.ru

<?

echo"<meta http-equiv=\"Content-Type\" content=\"text/html;charset=windows-1251\">";

Error_Reporting(E_ALL & ~E_NOTICE);

$c=0;

$q='бесплатное порно'; // кейворд

$q=urlencode($q);

for($b= 1; $b < 23 ; $b++) {

//if($nos>$c){brake;}else{}

$c=$c+50;

//echo "<b>".$b."</b> ,";

flush();

unset($line);

$header = "GET http://stat.go.mail.ru/stats?q=$q&sf=$c HTTP/1.0

Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, */*

Referer: http://ru.yahoo.com/

Accept-Language: ru-ru

Proxy-Connection: Keep-Alive

User-Agent: WH; SV1; MRA 4.6 (build 01425); .NET CLR 1.1.4322; .NET CLR 2.0.50727)

Host: stat.go.mail.ru



";



 $fp =@fsockopen("stat.go.mail.ru",80, $errno, $errstr, 1);



if(!$fp)

{

//echo" (<b>NO</b>) <br>";flush();

}

else

{

//echo" (<b>OK</b>)<br> ";flush();

fputs($fp, $header); // отправим данные



				 



while (!feof($fp)) 



{



	$line .= fgets($fp,400)	;	

}



preg_match_all ("|\">(.*)</a>|isU" ,$line, $good); 

if(!isset($nos)){

preg_match_all ("|запросов, уникальных вариантов запросов <b>(.*)</b>|isU" ,$line, $good2); 

$nos=$good2[1][0]."<br>";echo "Всего уникальных запросов:<b> ".$nos." </b><br>";}else{}

for($i = 11; $i < 59; $i++) {

if($good[1][$i]==""){}else{if(!strstr($good[1][$i],"<img")){if(!strstr($good[1][$i],"<font")){

$bob[]=$good[1][$i]."\r\n";}}}

}}}

$bob = array_unique($bob); 

$bb=count($bob);

echo "Спарсили:".$bb."<br>";

echo"<textarea rows=50 cols=45>";

foreach($bob as $ch => $bob )

   { 

echo $bob;

}

echo"</textarea>";

?>

оценивайте. скрипт очень сырой.