НГС.Форум /Компьютеры Интернет Связь / Программирование /

туплю... но как проверить валидность URL на Perle?

Печать RSS Деревом

PerS
v.i.p.
Сообщений: 3432
29.11.04 10:13
На PHP, наверно, и
$fp = @fopen ($URL, "r"); if (!$fp) { die ("Cannot open website $URL!"); }
проканает... а на Перле?... и желательно без необходимости установки навороченного модуля... или просто чтоб модуль поместить в подкаталог lib и работало.... кто поможет? :-)
Осторожно, злой кот!
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
29.11.04 12:15Ответ на сообщение туплю... но как проверить валидность URL на Perle? пользователя PerS
На перле тоже проканает...
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
PerS
v.i.p.
Сообщений: 3432
29.11.04 16:19Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя craxx
Дык, не канает :-)

#!/usr/bin/perl
print "Content-type: text/html\n\n";
$url="ЗдесьПишемУрлу";
$r=open FILE,"$url";
if ($r) { print "OK"; }
else { print "Can not open $url!"; }

дает "Can not open... " для любого адреса....

не могу же я, как на Сишке написать с fopen - она разве есть в Перле? :-) попробовал

#!/usr/bin/perl

$url="ЗдесьПишемУРЛу";
print "Content-type: text/html\n\n";

use IO::File;
$fh = new IO::File;
if ($fh->open("< $url")) {
print ;
$fh->close;
}
else {
print "Can not open $url!";
}

тож не канает... киньте кто-нибудь работающий пример плз...
Осторожно, злой кот!
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
01.12.04 16:03Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя PerS
тебе с пользованием библиотекой lwp подойдет?
приду домой поищу в старых своих кодах
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
01.12.04 16:07Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя PerS
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
# Create a request
my $req = HTTP::Request->new(Get => 'http://ngs.ru');
my $res = $ua->request($req);
if ($res->is_success) {
print "ok! \n";
}
else {
print "[censored]! \n";
}
КопироватьСсылка
Рассказать друзьям
PerS
v.i.p.
Сообщений: 3432
02.12.04 16:44Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя Анонимный пользователь
Спасибо за ответ, только вот ничего, кроме самого файла со скриптом, не OK, все остальные УРЛы censored :-(
LWP установлен, проверено. ActivePerl 5.6.1 на WinXPSP2. Проверил также на Apache/1.3.28 (Unix) с Перлом 5.76 - там упорно выдает Internal error 500, хотя модуль тож есть...

Мож в самом Useragent.pm че-нить ковырнуть, таймаут какой-нибудь? :-)
Осторожно, злой кот!
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
03.12.04 17:09Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя PerS
Ковырять не надо!
Вот: $ua->timeout(10);
Должно помочь.
КопироватьСсылка
Рассказать друзьям
PerS
v.i.p.
Сообщений: 3432
09.12.04 11:01Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя Анонимный пользователь
Ты будешь смеяться - не помогло :-( Разница в том, что теперь и на собственный URL тоже [censored] :-(
Осторожно, злой кот!
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
10.12.04 12:27Ответ на сообщение Re: туплю... но как проверить валидность URL на Perle? пользователя PerS
А пробовал таймаут ставить побольше?
Хотя 10 сек. итак немало.
А ты уверен что твоя прога может в инет ходить? Может у тебя прокси используется или фаервол?Посмотри какой-нибудь программулиной уходят ли от нее пакеты.
КопироватьСсылка
Рассказать друзьям

НГС.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic