Сообщения

1

Perl / Как получить большой файл частями?

« : 15 Февраля 2007, 14:54:17 »

может это поможет:


Доставка больших документов

1-й вариант. Записываем данные в процессе скачивания в файл

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => \'http://www.linpro.no/lwp/libwww-perl-5.46.tar.gz\');
$res = $ua->request($req, "libwww-perl.tar.gz");
if ($res->is_success) {
         print "ok\\n";
}else{
         print $res->status_line, "\\n";
}

2-й вариант. Вставка контролирующей подпрограммы в качестве второго аргумента $ua->request(). В этом варианте можно записывать скачиваемый файл по кусочкам, чтобы в случае обрыва связи потом его докачать.

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$URL = \'ftp://ftp.unit.no/pub/rfc/rfc-index.txt\';
my $expected_length;
my $bytes_received = 0;
my $res =$ua->request(HTTP::Request->new(GET => $URL),
                 sub {
                         my($chunk, $res) = @_;
                         $bytes_received += length($chunk);
                         unless (defined $expected_length) {
                                 $expected_length = $res->content_length || 0;
                         }
                         if ($expected_length) {
                                 printf STDERR "%d%% - ",
                                 100 * $bytes_received / $expected_length;
                 }
                         print STDERR "$bytes_received bytes received\\n";
                         # В $chunk - текущие данные
                         # print $chunk;
                 }
);
print $res->status_line, "\\n";

2

Perl / помогите понять это св-во страницы

« : 15 Февраля 2007, 14:51:03 »

спасибо, но у меня вывод такой же, как если бы использовать просто my $res = $ua -> get($url);   - пустая страница.
Я так понимаю, что \'Referrer\' может у них называться совсем по другому.

3

Perl / помогите понять это св-во страницы

« : 15 Февраля 2007, 10:28:06 »

ну на том же домене я не могу создать страничку .))
В перл как подставить этот реффер никто не в курсе ?
(щас пробую найти инфу по этому вопросу)

4

Perl / помогите понять это св-во страницы

« : 15 Февраля 2007, 09:58:21 »

спасибо за ответы.
Я сохранил страницу на локальном диске, подправил ссылки. В этом случае тоже результат - пустая страница.
значит, если нужен реферр, то определенный ?
Вообще меня интересует работа с Perl. Именно с помощью него я пытаюсь сохранить страницу.

5

Perl / помогите понять это св-во страницы

« : 14 Февраля 2007, 10:46:29 »

Есть страница сайта.
Там есть в первом пункте ссылка.
Если на нее нажать, то нормально появляются ставки.
Если же эту же самую ссылку скопировать в адресную строку, то ничего не произойдет.
Почему такое происходит и что нужно вставить в адресную строку, чтобы содержимое нормально отоброжалось?