Benötigen, senden Sie eine JSON-request in perl

Bin ich habe Probleme bei dieser Arbeit habe ich immer einen 400 bad request-response. Jede Hilfe wird sehr geschätzt, da dies mein Erster Versuch an beiden coding perl und der Verwendung von JSON. Ich hatte zu entfernen, einige der sensiblen Daten wie dieser ist etwas für die Arbeit. Der Sinn dieses Skripts ist es, drücken Sie einfach die URL senden der POST-Daten via JSON und drucken Sie die Antwort.

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON;


my $ua = LWP::UserAgent->new;
my $req = POST 'URL IS HERE';
my $res = $ua->request($req);
my $json = '{"warehouseId": "ID",
"tagMap":
  {"cameraId":["Name of camera"]
  },
"searchStartTimeStamp": 0,
"searchEndTimeStamp": 100000000000000,
"pageSize": 1,
 "client": 
  {"id": "username",
   "type": "person"}
}';


$req->header( 'Content-Type' => 'application/json' );
$req->content( $json );


    if ($res->is_success) {
print $req->content( $json );

    print $res->content;
} else {
    print $res->status_line . "\n";
}
exit 0;
  • Dies ist die Ausgabe von dem script "400 Bad Request"
InformationsquelleAutor root | 2013-07-09
  1. 9

    Führen Sie die Anfrage, bevor Sie vollständig gefüllt ist es! Diese Linie stellt den Antrag:

    my $res = $ua->request($req);

    aber ein paar Zeilen später, füllen Sie einige Felder aus:

    $req->header( 'Content-Type' => 'application/json' );
$req->content( $json );

    Versuchen austauschen, um:

    my $json = ...;

my $ua = LWP::UserAgent->new;
my $req = POST 'URL IS HERE';    
$req->header( 'Content-Type' => 'application/json' );
$req->content( $json );

my $res = $ua->request($req);

    Oh, nie $res->content. Der Wert dieser Methode im Allgemeinen nicht etwas Verwertbares. Sie immer wollen

    $res->decoded_content;
    • Danke für die schnelle Antwort! Nach Tausch und Wechsel zu decoded_content dies ist nun der Ausgang aus dem das Skript läuft. Global symbol "$req" requires explicit package name at lwp.cgi-Linie 9. Global symbol "$req" requires explicit package name at lwp.cgi-Linie 10. Global symbol "$json" requires explicit package name at lwp.cgi-Linie 10.
    • Hast du vergessen, ein Semikolon? Auch, Sie noch müssen, zu deklarieren und zu initialisieren $json vor dem setzen es in Ihrer Anfrage.
    • Was ich Tat, war, bewegen sich die beiden $req-Linien werden unter Abschnitt Verwendung
    • Dass offensichtlich nicht funktioniert. Ich aktualisierte mein post mit Beispiel-code.
    • Genial, die arbeitete, hatte ich, um den rest der meine decloration vor, dass als gut. Danke nochmal für Eure Hilfe! Sie sind ein Lebensretter!
    • Eine andere kleine Problem, während ja die Abfrage funktioniert, ich bekomme immer diese Meldung irgendeine Idee, wie man es beheben? Content-Length-header mit dem Wert falsch war, fest in /usr/local/share/perl/5.14.2/LWP/Protocol/http.pm Zeile 207.

    InformationsquelleAutor amon
Schreibe einen Kommentar