туплю... но как проверить валидность URL на Perle?
2464
8
PerS
v.i.p.
На PHP, наверно, и
$fp = @fopen ($URL, "r"); if (!$fp) { die ("Cannot open website $URL!"); }
проканает... а на Перле?... и желательно без необходимости установки навороченного модуля... или просто чтоб модуль поместить в подкаталог lib и работало.... кто поможет? :-)
$fp = @fopen ($URL, "r"); if (!$fp) { die ("Cannot open website $URL!"); }
проканает... а на Перле?... и желательно без необходимости установки навороченного модуля... или просто чтоб модуль поместить в подкаталог lib и работало.... кто поможет? :-)
Дык, не канает :-)
#!/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!";
}
тож не канает... киньте кто-нибудь работающий пример плз...
#!/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!";
}
тож не канает... киньте кто-нибудь работающий пример плз...
тебе с пользованием библиотекой lwp подойдет?
приду домой поищу в старых своих кодах
приду домой поищу в старых своих кодах
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";
}
$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.
Спасибо за ответ, только вот ничего, кроме самого файла со скриптом, не OK, все остальные УРЛы censored :-(
LWP установлен, проверено. ActivePerl 5.6.1 на WinXPSP2. Проверил также на Apache/1.3.28 (Unix) с Перлом 5.76 - там упорно выдает Internal error 500, хотя модуль тож есть...
Мож в самом Useragent.pm че-нить ковырнуть, таймаут какой-нибудь? :-)
LWP установлен, проверено. ActivePerl 5.6.1 на WinXPSP2. Проверил также на Apache/1.3.28 (Unix) с Перлом 5.76 - там упорно выдает Internal error 500, хотя модуль тож есть...
Мож в самом Useragent.pm че-нить ковырнуть, таймаут какой-нибудь? :-)
Сейчас читают
КиноБЗал (NF) (часть 4)
410473
1000
Москитный дозор
52403
997
Мужчины тоже хотят познакомиться!
944
19
PerS
v.i.p.
Ты будешь смеяться - не помогло :-( Разница в том, что теперь и на собственный URL тоже [censored] :-(
ТОП 5
1
2
3
4