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
#!/usr/bin/perl
 
use strict;
use warnings;
 
use LWP::UserAgent;
use open qw(:std :utf8);
use JSON;
 
use Data::Dumper;
use feature qw(:5.10);
 
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } );
 
my $response = $ua->get("https://...=jsonexport");
 
 
if ($response->is_success) {
    my $data = decode_json($response->decoded_content);
    print  Dumper $data;
 
}
else {
    say  "trouble!";
}
Je débute en JSON, je n'y connais encore quasi rien.
Comment puis-je indiquer mon mot de passe et mon login ?
Et je dois aussi changer le print Dumper car le retour de donnée est énorme, je vais le parser avec une des fonctions du module.
Avez-vous d'autres modules à me conseiller au sujet du login ou du parsage ?


D'avance merci.