Redwind
Новичок
Скрипт некорректно работает (возможна проблема в циклах)
Господа! Я написал скрипт (то есть пытаюся написать), который подключается через сокеты к сайту, ищет какое - то слово, и выводит его на экран. Все бы ничего, но сайтов поиска много, поэтому приходится использывать циклы. Вот код:
Возникает проблема при запуске: в текстовом файле содержатся ссылки на сайт, а обрабатывается только последняя ссылка из файла clovo-list.txt(то есть проходи полный цикл поиска и находит мне нужные слова). В чем моя ошибка(я думаю, что она с циклах, но найти так и не смог)? Может кто-то поможет?
Господа! Я написал скрипт (то есть пытаюся написать), который подключается через сокеты к сайту, ищет какое - то слово, и выводит его на экран. Все бы ничего, но сайтов поиска много, поэтому приходится использывать циклы. Вот код:
PHP:
<?php
set_time_limit(0);
/* переработка адресов начало */
$clovolist=fopen("clovo-list.txt",'r');
$p=0;
while(!feof($clovolist))
{
$text=fgets($clovolist, 300);
$text=str_replace("http://", "", $text);
$clovolistmas[$p]=$text;
$p++;
}
$colvossilok=count($clovolistmas);
fclose($clovolist);
/* переработка адресов окончена */
/* перебираем ссылки */
for ($ss=0; $ss<$colvossilok; $ss++)
{
/* разбиваем ссылку на части */
$url=$clovolistmas["$ss"];
$slesh=strpos($clovolistmas["$ss"], "/");
$host=substr($url, 0, $slesh);
$string=substr($url, $slesh);
/* строка на части разобрана */
/* открываем соединение */
$fp = fsockopen ($host, '80', $errno, $errstr, 20);
if (!$fp)
{
$errstr="<p align=center style='color:red'>Неудается подключится к серверу</p>";
echo "$errstr<br>\n";
}
else
{
$zapros="GET ".$string." HTTP/1.0\r\nHost: ".$host."\r\n\r\n";
fputs ($fp, $zapros);
$base=fopen("clovo.txt", 'a');
while (!feof($fp))
{
$i=0;
$content=fgets($fp);
if(ereg("([[:digit:]]+)([[:alnum:]])", $content, $links))
{
$zapis="$links[$i]\n";
fwrite($base, $zapis);
$i++;
}
}
fclose($base);
}
fclose ($fp);
}
/* закрываем соединение */
?>
Помогите