Модераторы: korob2001, JackYF, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как скачать файлы по https? LWP и логин с паролем 
:(
    Опции темы
kuksha
Дата 3.3.2019, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 151
Регистрация: 15.6.2011

Репутация: нет
Всего: нет



Здравствуйте.
Нужно скачать кучу файлов с сайта из моего личного профиля. Если качать без логина и пароля, то в скачанном контенте нет моих данных - только стандартные таблицы. Сохранять файлы руками из браузера - не вариант, их там сотни накопились...
Пробовал LWP вот так:
Код

use LWP::Simple; 
use LWP::UserAgent;
use HTTP::Cookies;

    my $cookie_jar = HTTP::Cookies->new(
     file => 'lwp_cookies.txt',
     autosave => 1,
     ignore_discard => 1,
   );   
    my $ua = LWP::UserAgent->new(
        ssl_opts => { verify_hostname => 1 }, 
        cookie_jar => $cookie_jar,
        );
        $ua->timeout(10);
    my @ns_headers = (
        'User-Agent' => 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.84 Safari/537.36',
        'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',
        'Accept-Charset' => 'iso-8859-1,*,utf-8',
        'Accept-Language' => 'en-US',
  );
$url="https://XXXXXX.YYY";
my $response = $ua->get($url, @ns_headers);
my $content    = $response->content;

Агент устаревший здесь указан, но вряд ли из-за этого - я же не вхожу в профиль, вот и не получается наверное...
Вставка логина и пароля в адресную строку не помогает:
Код

$url="https://mylogin:passwd@XXXXXX.YYY";

Как использовать логин и пароль для авторизации?

Это сообщение отредактировал(а) kuksha - 3.3.2019, 11:33
PM MAIL   Вверх
kuksha
Дата 3.3.2019, 23:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 151
Регистрация: 15.6.2011

Репутация: нет
Всего: нет



Попробовал так:
Код

 use LWP 5.64;
  my $browser = LWP::UserAgent->new;

    $browser->credentials( 
    'XXXX.YYY:443',
    '',
    'My_LOGIN' => 'MY_PASSWORD'
  );
  
  my $url = 'https://XXXX.YYY/zzz/?param1=1&param2=10&uid=123456';
  my $response = $browser->get($url);

  die "Error: ", $response->header('WWW-Authenticate') ||
    'Error accessing',
    "\n ", $response->status_line, "\n at $url\n Aborting"
   unless $response->is_success;

my $response = $browser->get($url);
my $content  = $response->content;

open (PW,">>1.html");
    print PW $content;        
close (PW);

Результат тот же - незаполненный шаблон странички, в консоли тишина, ошибок нет... как будто и не передавал логин с паролем.
PM MAIL   Вверх
arto
Дата 4.3.2019, 07:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1475
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



наверное используется другой механизм аутентикации.
PM MAIL ICQ   Вверх
kuksha
Дата 4.3.2019, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 151
Регистрация: 15.6.2011

Репутация: нет
Всего: нет



Цитата(arto @ 4.3.2019,  07:44)
наверное используется другой механизм аутентикации.

Хотелось бы пример использования этих самых "других механизмов" в Perl.
 smile 

Это сообщение отредактировал(а) kuksha - 4.3.2019, 22:32
PM MAIL   Вверх
alezzz
Дата 5.3.2019, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


Профиль
Группа: Участник
Сообщений: 492
Регистрация: 17.8.2009

Репутация: 1
Всего: 14



В браузерах есть режим разработчика, там можно посмотреть и код страницы где вводишь логин/пароль, и как эти данные уходят на сервер по сети.
PM MAIL   Вверх
arto
Дата 5.3.2019, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1475
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



PM MAIL ICQ   Вверх
Google
  Дата 25.5.2019, 01:53 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1019 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.