Я собираюсь войти на https://imputationserver.sph.umich.edu/index.html#! Pages / login со следующим:
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':all';
use WWW::Mechanize;
use DDP;
my $mech = WWW::Mechanize->new();
$mech->get( 'https://imputationserver.sph.umich.edu/index.html#!pages/login' );
my $username = '';
my $password = '';
#$mech->set_visible( $username, $password );
#$mech -> field('Username:', $username);
#$mech -> field('Password:', $password);
my %data;
@{ $data{links} } = $mech -> find_all_links();
@{ $data{inputs} } = $mech -> find_all_inputs();
@{ $data{submits} } = $mech ->find_all_submits();
@{ $data{forms} } = $mech -> forms();
p %data;
#$mech->set_fields('Username' => $username, 'Password' => $password);
, но, похоже, нет никакой полезной информации, которая отображается путем печати:
{
forms [],
inputs [],
links [
[0] WWW::Mechanize::Link {
public methods (9) : attrs, base, name, new, tag, text, URI, url, url_abs
private methods (0)
internals: [
[0] "favicon.ico",
[1] undef,
[2] undef,
[3] "link",
[4] URI::https,
[5] {
href "favicon.ico",
rel "icon"
}
]
},
[1] WWW::Mechanize::Link {
public methods (9) : attrs, base, name, new, tag, text, URI, url, url_abs
private methods (0)
internals: [
[0] "assets/css/loader.css",
[1] undef,
[2] undef,
[3] "link",
[4] var{links}[0][4],
[5] {
href "assets/css/loader.css",
rel "stylesheet"
}
]
}
],
submits []
}
Я просмотрел Firefox Инструменты -> информацию о странице, но не нашел там ничего ценного, я не вижу, откуда берутся имя пользователя и пароль на этой странице .
Я пробовал
$mech -> submit_form(
form_number => 0,
fields => { username => $username, password => $password },
);
, но потом получаю No form defined
Что касается ссылок, входных данных, полей, я их не вижу и Я не знаю, как двигаться дальше.
Я не вижу ничего на https://metacpan.org/pod/WWW :: Mechanize :: Examples , что помогло бы мне в этой ситуации.
Как мне войти на эту страницу, используя WWW :: Mechanize Perl?