WWW :: Mechanizeを使ってPerlでAngularJSログインフォームを自動化することはできますか？

Question

私はwebpageにAngularJSを使ってユーザー名フィールドとパスワードフィールドを持つフォームを表示し、HTMLには何も要素もないフォームを表示できます。次のページは、簡単に自動化できるシンプルなHTMLフォーム、2つのフィールドセット、ダウンロードボタンです。

私はWWW :: Mechanizeを使ってフォームを自動化する方法を知っていますが、私はログイン時に悩んでいます。私はこれを行うためのいくつかのpythonの方法を見たが、私はpythonistではなく、Perlを好む。

WWW：機械化できますか？その他のCPANモジュール？

Answer 1

ここにあります。ログインとパスワードを変更して、あなたが持っているものを貼り付けてください。 APIからtokenIdを取得し、このトークンを承認に使用する必要があります。

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;