Как загрузить файл с помощью WWW :: Mechanize или любого модуля Perl?

Question

Есть ли способ в WWW::Mechanize или любой модуль Perl для чтения в файле после доступа к веб-сайту. Например, я нажал кнопку «Получить», и появится файл (.txt), содержащий сообщение. Как я смогу прочитать контент? Ответы очень ценятся. Я работаю над этим целыми днями. Кроме того, я пробовал все возможности. Может ли кто-нибудь помочь? Если вы можете дать мне идею, пожалуйста? :)

Вот часть моего кода:

...

my $username = "admin";<br> 
my $password = "12345";<br> 

my $url = "http://...do_gsm_sms.cgi"; 

my $mech = WWW::Mechanize->new(autocheck => 1, quiet => 0, agent_alias =>$login_agent, cookie_jar => $cookie_jar); 

$mech->credentials($username, $password);<br> 
$mech->get($url); 

$mech->success() or die "Can't fetch the Requested page";<br> 

print "OK! \n"; #This works <br> 

$mech->form_number(1); 

$mech->click() 

;

После этого появится диалоговое окно «Загрузки», поэтому я могу сохранить файл (но я также могу установить по умолчанию его немедленное открытие вместо сохранения). Вопрос в том, как я могу прочитать содержимое этого файла?

..

Answer 1

После щелчка (при условии, что делает то, что он должен), возвращаемые данные должны храниться в вашем объекте $ меха. Вы должны иметь возможность получить данные файла с $mech->content(), , возможно, после подтверждения успеха с $mech->status() и типом ответа с $mech->content_type().

Возможно, вам будет полезно запомнить WWW :: Mechanize заменяет браузер; все, что сделал бы браузер, например, создание окна загрузки и сохранение файла, на самом деле не происходит, но вся информация, которую браузер мог бы получить, доступен через методы WWW :: Mechanize.

Answer 2

Смею спросить ... вы пробовали это?

my $content = $mech->content(); 

Answer 3

Я принимаю вы имеете в виду, что веб-сайт отвечает на форме представления, возвращая ответ не-HTML (а «простой текст /» файл, скажем), что вы хотите сохранить.

Я считаю, что вы хотите $mech->save_content($filename)

Добавлено:

Прежде всего, необходимо представить ВСП: форма представления Меха, перед сохранением файла в результате (текст). click для clicking a button, тогда как вы хотите отправить форму, используя $mech->submit() или $mech->submit_form(...).

#!/usr/bin/perl 

use strict; 
use warnings; 

use WWW::Mechanize; 

my $username = "admin"; 
my $password = "12345"; 
my $login_agent = 'WWW::Mechanize login-agent'; 
my $cookie_jar; 

#my $url = "http://localhost/cgi-bin/form_mech.pl"; 
my $url = "http://localhost/form_mech.html"; 

my $mech = WWW::Mechanize->new(autocheck => 1, quiet => 0, 
       agent_alias => $login_agent, cookie_jar => $cookie_jar 
      ); 

$mech->credentials($username, $password); 
$mech->get($url); 

$mech->success() or die "Can't fetch the Requested page"; 

print "OK! \n"; #This works 

$mech->submit_form(
    form_number => 1, 
); 
die "Submit failed" unless $mech->success; 

$mech->save_content('out.txt'); 

Answer 4

Откройте файл (не окно «Загрузки»), как если бы вы были его просмотра в вашем браузере; вы можете сохранить его позже несколькими строками кода.

При условии, у вас есть HTML::TreeBuilder установлен:

my $textFile = $mech->content(format => "text"); 

вы должен получить текст появившегося окна, которое открывается.

Затем откройте дескриптор файла для записи результатов в:

open my $fileHandle, ">", "results.txt"; 
print $fileHandle $textFile; 
close $fileHandle; 

Answer 5

Я делаю это все время с LWP, но я уверен, что это в равной степени возможно с Mech

Я думаю, где вы могли бы быть неправильное использование Mech для запроса страницы, на которой есть кнопка, когда вы действительно хотите запросить контент со страницы, которую кнопка вызывает для отправки в браузер при нажатии.

Что вам нужно сделать, это просмотреть источник html страницы кнопкой, которая инициирует загрузку, и посмотреть, что связано с действием. Скорее всего, это будет POST с некоторыми скрытыми полями или URL-адресом, чтобы сделать GET.

Целевой URL-адрес клика содержит материал, который вы на самом деле хотите получить, а не URL-адрес страницы с кнопкой на нем.

Answer 6

Для таких проблем вам часто приходится исследовать всю цепочку событий, которые обрабатывает браузер. Используйте инструмент сниффера HTTP, чтобы увидеть все, что делает браузер, пока оно не попадет в файл. Тогда вы должны сделать то же самое в Мехе.