1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
use WWW::Mechanize; use Data::Dumper; use Crypt::SSLeay; my $mech = WWW::Mechanize->new(); $mech->get( 'https://www.zentrada.de/login/' ); $mech->form_number(2); $mech->field('ff_email', 'xxx@gmx.de'); $mech->field( 'ff_passwort' , 'asdf!&§'); $response = $mech->submit(); if ($response->is_success) { print $response->decoded_content; } else { print STDERR $response->status_line, "\n"; }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use WWW::Mechanize;
use Data::Dumper;
use Crypt::SSLeay;
my $mech = WWW::Mechanize->new();
$mech->get( 'https://www.zentrada.de/login/' );
$mech->submit_form(
form_number => 2,
fields => {
'ff_email' => 'xxx@gmx.de',
'ff_passwort' => 'asdf!&§',
},
);
if ($response->is_success) {
print $response->decoded_content;
}
else {
print STDERR $response->status_line, "\n";
}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use WWW::Mechanize::Firefox; use Data::Dumper; use utf8; my $mech = WWW::Mechanize::Firefox->new( launch => 'firefox', autoclose => 0 ); $mech->get( 'https://www.zentrada.de/login/index.cfm' ); $mech->form_number(2); $mech->field('ff_email', 'xxxx'); $mech->field( 'ff_passwort' , 'xxxx'); $response = $mech->submit();