Форма отправки в Perl
Я на самом деле пытаюсь изучить Perl-код, и у меня возникли некоторые проблемы с моим последним кодом с Mechanize. Я просто хочу создать бота для входа на мой любимый сайт. Я уже сделал это с Priceminister и facebook, но я заблокирован с помощью spotify.
CMD верните мне:
There is no form with the requested fields at C:/Perl64/lib/WWW/Mechanize.pm line 1001.
Но в исходном коде страницы есть форма. (на веб-странице есть капча, это проблема?)
мой код:
use Browser::Open qw( open_browser );
use WWW::Mechanize;
use HTTP::Cookies;
use Time::HiRes;
use strict;
use warnings;
system('cls');
my $cookies= 'cookies.txt'; #your cookies file path here
my $Mail = '<MyMail>';
my $password = '<MyPassword>';
my $mech = WWW::Mechanize->new( cookie_jar => HTTP::Cookies::Netscape->new( file => $cookies ) );
$mech->agent_alias( 'Windows Mozilla' );
my $ftp = "https://accounts.spotify.com/fr-FR/login?continue=https:%2F%2Fwww.spotify.com%2Ffr%2Faccount%2Foverview%2F";
$mech->get ($ftp);
print "\n";
print "\n";
print "\n";
print $mech->uri, "\n", "\n";
print $mech->forms, "\n", "\n";
print "\n";
print "\n";
print "\n";
$mech->submit_form(
with_fields => {
username => $Mail,
password => $password
}
);
print $mech->uri, "\n", "\n";