Я пытаюсь написать Perl-скрипт для входа на сайт, защищенный паролем. В прошлом я использовал модуль WWW :: Mechanize для подобных задач, но этот сайт отличается по двум причинам:
-Используется JavaScript на защищенных страницах, поэтому механизация не будет работать. Я бы предпочел реализовать что-то с помощью браузера без головы, так как скрипт работает каждый час на моей рабочей машине.
- У него нет формы входа, скорее браузер отображает всплывающее окно для входа в систему, и я не могу понять, как с этим справиться.
URL: https://fwxwww2.hpr.for.gov.bc.ca/Scripts/Public/Common/Report.asp?Report=Hourly
Я нашел достаточно хороших ресурсов для того, чтобы продолжить работу с javascript после входа в систему, так что на самом деле это просто способ аутентификации, что поставило меня в тупик. Заранее спасибо за любые предложения о том, как подойти к этому. Я открыт для решений, не связанных с Perl, но я использую Cygwin, поэтому возможности несколько ограничены.
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;
my $url= 'https://fwxwww2.hpr.for.gov.bc.ca/Scripts/Public/Common/Report.asp?Report=Hourly';
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->credentials(
'myusername',
'mypassword'
);
$mech->get( $url );
print $mech->content();