Проверка через перл

2Balu · 04.02.2002, 16:40

нужно проверить если ли на определённой странице определённый текст в коде ...
ну типа надо проверить есть ли в коде ссылка на мой сайт , если нет то выскакивает алерт ...
как это сделать???

для тех кто не понял

PERL ::
нажимаешь на кнопочку и скрипт должен проверить присутствует ли определённый текст на странице !
на пример на http://rapon.by.ru/index.htm присутствует ли слово Ёханный бабай , если присетствует то алерт 'есть слово' если нету такого то алерт 'no'
Ясно

Swed · 04.02.2002, 21:06

попробуй получить нужную страницу при помощи кода

Код:

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;

my $url = "http://rapon.by.ru/index.htm";
$| = 1;
printf "%s =>\n", $url;
my $ua = LWP::UserAgent->new();
$ua->agent("Schmozilla/v9.14 Platinum");
$ua->proxy(['http', 'ftp'] => 'http://proxy.com:3128'); #если нужно используй прокси
my $req = HTTP::Request->new(GET => $url);
$req->referer("http://some.com");
my $response = $ua->request($req);
if ($response->is_error()) {
   print "not responding";
} else {
   my $content = $response->content();
}

после чего в переменной $content, содержащей весь текст данной страницы, ищи необходимую тебе фразу.

2Balu · 04.02.2002, 23:33

Ошибка 500: Внутренняя ошибка сервера
вот такие блин пироги

Swed · 05.02.2002, 11:25

Это только кусок кода без использования CGI. В таком виде он работает с командной строки >perl test.pl. Если ты его хочешь использовать через веб добавь в начале

Код:

use CGI;
my $ot = new CGI;
print $ot->header(-type=>'text/html');
...

или просто

Код:

print "Content-Type: text/html\n\n";

боле подробно о использовании CGI ищи среди моих ссылок

2Balu · 05.02.2002, 16:06

что-то нн выходит

пишет http://rapon.by.ru => not responding
может у меня руки кривые

можешь полный скрипт скинуть в форум или на мыло ???

Swed · 05.02.2002, 16:25

где ты запускаешь скрипт?
обрати внимание - если перед сервером стоит прокси то нужна строка

Цитата:

$ua->proxy(['http', 'ftp'] => 'http://your.proxy:port'); #если нужно используй прокси

соответственно не нужна, если нет прокси.

2Balu · 05.02.2002, 16:52

я его сразу гружу на h1.ru и запускаю там ...
прокси убирал , всё равно не выходит

Swed · 05.02.2002, 17:00

сложно сказать...
а другие адреса пробовал вместо rapon.by.ru?

2Balu · 05.02.2002, 20:15

неа , ни в какую не хочет выполняться

попробуй сам , может у тебя получиться :!

Swed · 06.02.2002, 11:14

попробую, но пока я зарегистрюсь на h1, пройдет куча времени.
а у себя на серваке я проверял - все работает