Thread WWW::Mechanize - follow-link (5 answers)
Opened by Eugen at 2009-09-16 17:38

Gast Eugen
 2009-09-16 17:38
#125883 #125883
Hi,

diese Skript funktioniet so wie ich es mir vorstelle:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;

my $url = 'http://areaclienti.tre.it/selfcare/areaclienti133/4554_profilo_ITA_HTML.xsl';
my $mech = WWW::Mechanize->new();
$mech->get( $url );

$mech->submit_form(
    form_name => 'formDati',
    fields      => {
        username    => 'username',
        password    => 'password',
    }
);


my $page = $mech->follow_link( text_regex => qr/info costi/i );

print Dumper $page;


So funktioniert es nicht mehr.


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;

my $url = 'http://areaclienti.tre.it/selfcare/areaclienti133/4554_profilo_ITA_HTML.xsl';
my $mech = WWW::Mechanize->new();
$mech->get( $url );

$mech->submit_form(
    form_name => 'formDati',
    fields      => {
        username    => 'username',
        password    => 'password',
    }
);


$mech->follow_link( text_regex => qr/info costi/i );

my $page = $mech->follow_link( text_regex => qr/visualizza soglie/i );

print Dumper $page;



Ich möchte mich auf $url anmelden und dann einem Link folgen und dann auf dieser neuen Seite noch einmal einem Link folgen.

View full thread WWW::Mechanize - follow-link