Discussion :

[Jasmine80]

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.

[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é.

[Jasmine80]

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
#!/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

[Jasmine80]

Module qui fonctionne mieux et est gratuit :

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
#!/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();