[Débutant] Connexion en HTTPS via un Proxy ?

**ghohm** · 14/06/2007, 13h43

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' );