| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Nesvet
Зарегистрирован: 10.08.2005
Сообщения: 9
|
 Добавлено: Ср Авг 10 2005 23:49 Заголовок сообщения: About Perl... |
 |
|
Значит так, вопрос в следующем...
Существует в сети некая html страница. Лежит на постороннем сервере, доступа к ней "изнутри" нет и т.п.
Так вот, могу ли я получить ее содержимое (то, что мы видим, как source) в perl как массив (переменную и т.п. не важно)?
Буду очень признателен...
Nesvet |
|
| Вернуться к началу |
|
 |
mad_alexx
Зарегистрирован: 14.01.2005
Сообщения: 154
Откуда: Иркутск
|
| Добавлено: Чт Авг 18 2005 14:40 Заголовок сообщения: Re: About Perl... |
|
|
Если надо скачать страницу с какого-то вебсервера средствами перла, то это можно сделать так:
| Код: |
sub get_remote
{
my $url = shift;
my $content;
use LWP::Simple;
$content = get $url;
print "$content\n";
}
get_remote("http://www.citforum.ru"); |
|
|
| Вернуться к началу |
|
|
Nesvet
Зарегистрирован: 10.08.2005
Сообщения: 9
|
| Добавлено: Пт Авг 19 2005 09:25 Заголовок сообщения: |
|
|
| Ух ты... Спасибо, mad_alexx, попробуем... |
|
| Вернуться к началу |
|
|
Nesvet
Зарегистрирован: 10.08.2005
Сообщения: 9
|
| Добавлено: Пт Авг 19 2005 15:59 Заголовок сообщения: |
|
|
Возвращает 500-ю...
Немного поэкспериментировал со скриптом... Но безуспешно.
З.Ы. разрешения в норме. 755. |
|
| Вернуться к началу |
|
|
mad_alexx
Зарегистрирован: 14.01.2005
Сообщения: 154
Откуда: Иркутск
|
| Добавлено: Сб Авг 20 2005 04:39 Заголовок сообщения: |
|
|
Возможно на сервере не установлен перловый модуль LWP::Simple или другие модулы, которые нужны LWP::Simple. Если есть возможность, выполни следующий скрипт с консоли и посмотри какие модули не может найти.
| Код: |
#!/usr/bin/perl
use strict;
#-------------------------------get remote resourse-------------------------
sub get_remote
{
my $url = shift;
my $content;
use LWP::Simple;
$content = get $url;
print "$content\n";
}
#---------------------------------------help--------------------------------
sub help
{
print "
get_remote.pl <url>
url remote resourse for downloading
text of page will be displayed on screen.
\n\n";
}
#---------------------------------------main--------------------------------
if ($#ARGV == -1 || $ARGV[0] eq "-h" || $ARGV[0] eq "--help") {
help();
exit;
}
print "$ARGV[0]\n";
get_remote($ARGV[0]);
|
|
|
| Вернуться к началу |
|
|
mad_alexx
Зарегистрирован: 14.01.2005
Сообщения: 154
Откуда: Иркутск
|
| Добавлено: Сб Авг 20 2005 04:43 Заголовок сообщения: |
|
|
| Кстати, пример с LWP::Simple я взял здесь же, на цитфоруме. Посмотри в разделе Программирование/Perl. |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
