Jemand zu Hause?Leser: 14
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
my $browser = WWW::Mechanize->new( stack_depth => 0, timeout => 130, autocheck => 1, cookie_jar => {}, ); $browser->agent_alias('Windows IE 6'); $browser->add_header( Accept => "text/*" ); $browser->get($url); $browser->form_number(1); $browser->field('name', $login); $browser->field('pass', $password); $resp1 = $browser->submit();
use strict; use warnings;