Hello,

I have problem with module WWW::Mechanize::Chrome

I try create program to log in on Instagram. I try all capabilities but don’t log in. Log In form is dynamic in javascript.

I suppose that it is about disable status button „Log In”, but i correct complement two input fields but Log In still disabled status.What to do in this situation?

Please see my code:

#!/usr/bin/perl

use strict;
use warnings;
use Log::Log4perl ':easy';
use WWW::Mechanize::Chrome;
use open ':std', ':encoding(UTF-8)';

sub main ()
{
    my $mech;
    my $res;
    my $url;
    my $cookies;

    my $username;
    my $password;
    my $user;
    my $pass;
    my @formlist;

    $user = "zzz";
    $pass = "www";
    $url = "https://www.instagram.com/accounts/login/?source=auth_swit
+cher&hl=en";

    $mech = WWW::Mechanize::Chrome->new(
            launch_exe => 'chromium',
            launch_arg => ["--no-sandbox", "--disable-setuid-sandbox",
+ "--remote-debugging-port=9222", "--headless"],
    );
    $mech->allow( javascript => 1 );


    $mech->get($url);
    $mech->sleep(5);        # waiting for load site

    $mech->form_number(1);
    $username = $mech->xpath('//input[@type="text"]', single => 1 );
    $username->set_attribute('value', "$user");

    $password = $mech->xpath('//input[@type="password"]', single => 1 
+);
    $password->set_attribute('value', "$pass");

    $mech->click({ text => 'Log In', single => 1 }); # for headless

    print $mech->content; 

    return 0;
}

main ();
[download]