我可以使用WWW :: Mechanize在Perl中自动执行AngularJS登录表单吗

Question

I have a webpage that uses AngularJS to show a form with a username field, then a password field and the HTML doesn't have any or elements. The next page is a simple HTML form that can be easily automated, two set of fields and a download button.

I know how to use WWW::Mechanize to automate forms but I'm stuck at the login. I saw some python ways to do this, but I'm not a pythonist, and prefer Perl.

Can WWW:Mechanize do this? any other CPAN modules?

Answer 1

Here it is. Change login and password and paste what you got. You should get tokenId from API, then use this token to authorization.

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();

my $login = 'lucky';
my $password = 'secretpassword';

$ua->default_header('Accept' => 'application/json, text/plain, */*');
$ua->default_header('Content-Type' => 'application/json;charset=UTF-8');
$ua->default_header('Accept-Encoding' => 'gzip, deflate, br');
$ua->default_header('Accept-Language' => 'pl-PL,pl;q=0.9,en-US;q=0.8,en;q=0.7');
$ua->default_header('Connection' => 'keep-alive');
$ua->default_header('Orgin' => 'https://www.ooredoo.qa');
$ua->default_header('Referer' => 'https://www.ooredoo.qa/selfcare/');
$ua->default_header('Content-Type' => 'application/json;charset=UTF-8');
$ua->default_header('User-Agent' => 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/41.0.2227.0 Safari/537.36');
my $content = '{"operation":"Login","language":"ENGLISH","parameters":["'.$login.'","'.$password.'"]}';
my $res = $ua->post('https://www.ooredoo.qa/webgate/login', Content => $content );
print $res->decoded_content;