Leser: 26
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
# mechanize-Objekt erstellen, Damit arbeiten wir.
my $mech = WWW::Mechanize->new();
# Adresse der Webseite mit dem Formular, das du ausfüllen willst.
my $url = 'http://www.secured-site.com';
# Webseite mittels GET-Request (einfach mal danach googeln) auslesen
$mech->get( $url );
# das Login-Formular auswählen (über die ID)
my $name = "is_des_formulars";
$mech->form_id( $name );
# Formular mit deinen zugangsdaten abschicken
$mech->submit_form(
form_number => 3,
fields => {
username => 'mungo',
password => 'lost-and-alone',
}
);