Форум Flasher.ru

Форум Flasher.ru (http://www.flasher.ru/forum/index.php)
-   Perl (http://www.flasher.ru/forum/forumdisplay.php?f=21)
-   -   Проверка через перл (http://www.flasher.ru/forum/showthread.php?t=26748)

2Balu 04.02.2002 16:40
Проверка через перл
 
нужно проверить если ли на определённой странице определённый текст в коде ...
ну типа надо проверить есть ли в коде ссылка на мой сайт , если нет то выскакивает алерт ...
как это сделать???

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

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

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, пройдет куча времени.
а у себя на серваке я проверял - все работает

Swed 06.02.2002 18:37
вот в чем проблем...
Цитата:
На нашем хостинге закрыты исходящие коннекты.
--
Служба поддержки бесплатного хостинга H1.Ru, hs1@agava.com


Часовой пояс GMT +4, время: 03:01.

Copyright © 1999-2008 Flasher.ru. All rights reserved.
Работает на vBulletin®. Copyright ©2000 - 2026, Jelsoft Enterprises Ltd. Перевод: zCarot
Администрация сайта не несёт ответственности за любую предоставленную посетителями информацию. Подробнее см. Правила.