JSON requête avec login et password

Version imprimable

Bonjour à tous,
Code:

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.

21/07/2017, 17h01
Jasmine80

Mon collègue m'a dit de regarder du côté de l'authentification http basique :) je fais mes devoirs et je cherche de mon côté.

Code:

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
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
use chilkat();
 
my $http = chilkat::CkHttp->new();
 
#  Any string unlocks the component for the 1st 30-days.
my $success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}
 
#  Set the Login and Password properties for authentication.
$http->put_Login("lg");
$http->put_Password("psw");
 
my $html = $http->quickGetStr("https://...");
 
 
#  Note:
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}
 
#  Examine the HTTP status code returned.
#  A status code of 401 is typically returned for "access denied";
#  if no login/password is provided, or if the credentials (login/password)
#  are incorrect.
print "HTTP status code for Basic authentication: " . $http->get_LastStatus() . "\r\n";
 
#  Examine the HTML returned for the URL:
print $html . "\r\n";

référence : https://www.example-code.com/perl/ht...entication.asp

Module qui fonctionne mieux et est gratuit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
use LWP;
use HTTP::Request::Common;
 
my $req = "https://... =jsonexport";
 
my $browser = LWP::UserAgent->new;
my $request = GET $req;
$request->authorization_basic("log", "psw");
 
my $response = $browser->request($request);
print $response->content();