IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Modules Perl Discussion :

JSON requête avec login et password


Sujet :

Modules Perl

  1. #1
    Membre émérite
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 44
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Points : 2 673
    Points
    2 673
    Par défaut JSON requête avec login et password
    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.
    -- Jasmine --

  2. #2
    Membre émérite
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 44
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Points : 2 673
    Points
    2 673
    Par défaut
    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é.
    -- Jasmine --

  3. #3
    Membre émérite
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 44
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Points : 2 673
    Points
    2 673
    Par défaut
    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
    -- Jasmine --

  4. #4
    Membre émérite
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 44
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Points : 2 673
    Points
    2 673
    Par défaut
    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();
    -- Jasmine --

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Accés limités avec login et password
    Par Merryy dans le forum Excel
    Réponses: 15
    Dernier message: 10/06/2015, 14h52
  2. Mappage lecteur réseau avec login et password
    Par _gor_acc dans le forum VBScript
    Réponses: 1
    Dernier message: 13/10/2010, 21h33
  3. [MySQL] Gestion des sessions avec login et password
    Par jeremay dans le forum PHP & Base de données
    Réponses: 3
    Dernier message: 17/07/2008, 08h53
  4. Réponses: 1
    Dernier message: 18/09/2007, 12h11
  5. Accés repertoire avec login/password
    Par etoileDesNeiges dans le forum Entrée/Sortie
    Réponses: 7
    Dernier message: 20/02/2007, 17h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo