Discussion :

[ghohm]

Bonjour à tous,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
    #!c:/perl/bin -w
    use strict;
    use warnings;
    use WWW::Mechanize;
    use Crypt::SSLeay;
    use Data::Dumper;
    use HTML::TreeBuilder;
 
    my $url = 'https://blabla.com';
    my $usr = 'mon_login';
    my $pwd = 'mon_password';
 
    my $bot = WWW::Mechanize->new;
    $bot->get($url);
    die $bot->res->status_line unless $bot->success;
 
    # positionnement sur le 1er formulaire (indice = 1)
    $bot->form_number(1);
 
    # debug
    print Dumper $bot->current_form;
    #print Dumper +( $bot->forms )[0];    # autre formulation
 
    # nom du champ (Email) à remplir : "_blabla:email"
    $bot->field( '_blabla:email' => $usr );
 
    # nom du champ (Password) à remplir : "_blabla:password"
    $bot->field( '_blabla:password' => $pwd );
 
    # envoi du formulaire
    $bot->click();
 
    # debug
    print Dumper $bot->content;
 
    print map { $_->as_text }
      HTML::TreeBuilder
        ->new_from_content( $bot->content )
        ->look_down( _tag => 'span', id => 'id_du_champ_a_recup' );

Var d'environnement pour passer à travers le Proxy :

https_proxy => http://proxy.mycompany.com:8080
https_proxy_user => mon_login
https_proxy_password => mon_mdp

OU

https_proxy => http://mon_login:mon_mdp@proxy.mycompany.com:8080

Erreur retournée quelques soient les variables d'environnement :

U:\Robot_Web>bot.pl
407 Proxy Authentication Required at U:\Robot_Web\bot.pl line 15.

[Jedai]

A priori tu as oublié de faire env_proxy(), cf la FAQ de WWW::Mechanize.

--
Jedaï

[ghohm]

A priori tu as oublié de faire env_proxy(), cf la FAQ de WWW::Mechanize.

--
Jedaï

Etant donné que ça ne fonctionne pas avec les variables d'environnement ... j'ai utilisé la 2ème solution, càd coder en dur les informations me permettant de me connecter au Proxy et ... ça fonctionne toujours pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
    #!c:/perl/bin -w
    use strict;
    use warnings;
    use WWW::Mechanize;
    use Crypt::SSLeay;
    use Data::Dumper;
    use HTML::TreeBuilder;
 
    my $url = 'https://blabla.com';
    my $usr = 'mon_login';
    my $pwd = 'mon_password';
 
    my $bot = WWW::Mechanize->new;
    $bot->get($url);
 
    #$bot->agent_alias("Linux Mozilla");
 
    #$bot->env_proxy();
    $bot->proxy(['http', 'https', 'ftp'], 'http://mon_login:mon_mdp@proxy.mycompany.com:8080/');
 
    # debug
    #print Dumper $bot->content;
    #print Dumper $bot->response;
 
    die $bot->res->status_line unless $bot->success;
 
    # positionnement sur le 1er formulaire (indice = 1)
    $bot->form_number(1);
 
    # debug
    print Dumper $bot->current_form;
    #print Dumper +( $bot->forms )[0];    # autre formulation
 
    # nom du champ (Email) à remplir : "_blabla:email"
    $bot->field( '_blabla:email' => $usr );
 
    # nom du champ (Password) à remplir : "_blabla:password"
    $bot->field( '_blabla:password' => $pwd );
 
    # envoi du formulaire
    $bot->click();
 
    # debug
    print Dumper $bot->content;
 
    print map { $_->as_text }
      HTML::TreeBuilder
        ->new_from_content( $bot->content )
        ->look_down( _tag => 'span', id => 'id_du_champ_a_recup' );

[Jedai]

Peut-être serait-il judicieux de spécifier le proxy avant de faire le get()....

--
Jedaï

[ghohm]

Peut-être serait-il judicieux de spécifier le proxy avant de faire le get()....

--
Jedaï

A force d'intercaler des lignes supplémentaires pour faire des tests ... j'ai fini par les mettre après le get() ... au temps pour moi !


Bon sinon j'ai désormais un autre problème :

400 Bad Request

[Jedai]

Bon sinon j'ai désormais un autre problème :

400 Bad Request

Ma foi là ça dépend de l'url. Tu as essayé avec une autre URL https pour voir si ça marche ?

--
Jedaï