ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Цитата:

Сообщение от $p01nt

Ребят, привет всем!
У меня такой вопрос, пытаюсь авторизироваться на сайте отправив методом POST логин и пароль, ничего не получается (хотя на некоторых других - все ОК!). Собсно ошибка:...

вот рабочий код. механайз рулз

Код:

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');

$mech->get('https://www.google.com/accounts/ServiceLoginAuth?service=mail');
$mech->submit_form(form_number => 1, fields => {Email => 'логин', Passwd => 'пасс', PersistentCookie => 'yes'});

my ($loc) = $mech->content() =~ /location\.replace\("(.+)"\)/;

$mech->get($loc);

print $mech->content();

твой код не смотрел почему не работает, но в любом случае ты неправильно куки сохраняешь, почитай доки по этому поводу

Код:

my $jar = HTTP::Cookies->new(file => "cookie.txt", autosave => 1, ignore_discard => 1, hide_cookie2 => 1);