Чтение удаленой страницы(Perl)
Хелп!
Как прочитать содержимое страницы сайта.
Такой код почему-то выдает ошибку.
open (HTM,"<http://www.ziptrading.ru/");
while(<HTM>)
{
print;
}
Как прочитать содержимое страницы сайта.
Такой код почему-то выдает ошибку.
open (HTM,"<http://www.ziptrading.ru/");
while(<HTM>)
{
print;
}
Это тебе не PHP.
Попробуй fetch или wget
В ключике могу ошибаться.
Вообще способов море :) Могу еще пару подкинуть.
Попробуй fetch или wget
Код:
print `fetch -t http://www.codenet.ru/`
В ключике могу ошибаться.
Вообще способов море :) Могу еще пару подкинуть.
Цитата:
Originally posted by mike
Это тебе не PHP.
Попробуй fetch или wget
В ключике могу ошибаться.
Вообще способов море :) Могу еще пару подкинуть.
Это тебе не PHP.
Попробуй fetch или wget
Код:
print `fetch -t http://www.codenet.ru/`
В ключике могу ошибаться.
Вообще способов море :) Могу еще пару подкинуть.
Смысл кода не в распечатке, а в дальнейшей обработке его.
Подсказали вот еще какой способ(сейчас его использую):
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
local $ua = LWP::UserAgent->new;
local $response = $ua->get($url);
if(!$response->is_success){
die;
}
print $response->content;
Но всеравно спасибо за помощь.
А вообще буду рад узнать еще способы получить код страницы.....так что подкидывай, если знаешь :)
Цитата:
Originally posted by m1rage
Смысл кода не в распечатке, а в дальнейшей обработке его.
Смысл кода не в распечатке, а в дальнейшей обработке его.
Ну так поставь тогда вместо print присвоение
Код:
$a=`fetch -t http://www.codenet.ru/`;
Цитата:
Originally posted by mike
Ну так поставь тогда вместо print присвоение
Ну так поставь тогда вместо print присвоение
Код:
$a=`fetch -t http://www.codenet.ru/`;
я понял, конечно, это :)
я думал ты еще что-то предложить можешь... :)