Я использовал WWW::Mechanize на Perl для очистки сайта.
Я столкнулся с некоторыми трудностями при входе на конкретный сайт через WWW::Mechanize. Я рассмотрел несколько примеров WWW::Mechanize. Но я не мог узнать свою проблему. У меня есть упоминание ниже моего кода.
#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use Crypt::SSLeay;
my $agent = WWW::Mechanize->new(noproxy => 0);
$agent->cookie_jar(HTTP::Cookies->new());
$agent->agent('Mozilla/5.0');
$agent->proxy(['https', 'http', 'ftp'], 'http://proxy.rcapl.com:3128');
$agent->get("http://www.facebook.com");
my $re=$agent->submit_form(
form_number => 1,
fields => {
Email => '[email protected]',
Passwd =>'xyz'
}
);
print $re->content();
Когда я запускаю код, он говорит:
Ошибка при публикации https://www.facebook.com/login.php?login_attempt=1: Не реализовано в ./test.pl, строка 11
Может ли кто-нибудь сказать, что происходит с кодом. Нужно ли мне устанавливать все параметры, которые Facebook отправляет для входа в систему?