Wie kann ich fangen eine "failed to decode JSON" Fehlermeldung in Perl?

So, ich bin versucht, laden testen einer REST-API gibt JSON-Wert.

Zu tun, dass ich das erstellen mehrerer Instanzen des perl-Skripts.

Dem Perl-script im Grunde ruft diese URL auf und versucht decode_json. Natürlich, wenn erhebliche Last erzeugt wird, schlägt es fehl.

Nun das problem, das ich konfrontiert ist - Ein Fehler wird angezeigt, auf Eingabeaufforderung, aber nicht schreiben, dass die Fehlermeldung in eine Datei.

Die Fehlermeldung ist

malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "Can't connect to 209...") at json_load_test.pl line 39.

In alle drei versuche unter Zeile 39 bezieht sich auf:

decode_json($actual_response);

Ich bin einfach läuft das Skript auf der Kommandozeile als:

perl json_load_test.pl >> logs/output.txt

ERWARTE ich DIE FEHLERMELDUNG GESCHRIEBEN WERDEN "output.txt"

Meine drei fehlgeschlagen versuche sind wie folgt.

Versuch 1:

my $ua = LWP::UserAgent->new;
$ua->timeout(3);    
$ua->env_proxy;        
my $response = $ua->get("http://$j_env/jobs/all.json?status=active");
my $actual_response=$response->decoded_content;
decode_json($actual_response);
if ($? == -1)
{print "\n Failed to execute: $!\n"; }

Versuch 2:

my $ua = LWP::UserAgent->new;
$ua->timeout(3);    
$ua->env_proxy;        
my $response = $ua->get("http://$j_env/jobs/all.json?status=active");
my $actual_response=$response->decoded_content;
my $perl_scalar= decode_json($actual_response);
if ($perl_scalar)
{ok(1,"For process $u2 inside counter $counter ");}
else
{ok(0,"FAILED!!! process $u2 inside counter $counter");}

Versuch 3:

my $ua = LWP::UserAgent->new;
$ua->timeout(3);    
$ua->env_proxy;        
my $response = $ua->get("http://$j_env/jobs/all.json?status=active");
my $actual_response=$response->decoded_content;
decode_json($actual_response) or die "FAILED!!!!";

InformationsquelleAutor Amey | 2011-10-18

20

Sieht es aus wie deine Fehlermeldung kommt von stderr, nicht auf stdout. So,
```
perl json_load_test.pl >> logs/output.txt 2>> logs/errors.txt
```
Oder etwas zu diesem Effekt. Wenn Sie möchten, dass beide in einer Datei:
```
perl json_load_test.pl 2>&1 >> logs/output.txt
```
EDIT:

Wenn Sie aus irgendeinem Grund wollten die trap-Fehler in der perl und senden Sie es an stdout, Sie könnten:
```
eval {
  decode_json($actual_response);
  1;
} or do {
  my $e = $@;
  print "$e\n";
};
```
EDIT2:

Als daxim Punkte in den Notizen Bearbeiten, Try::Tiny ist vielleicht einfacher:
```
use Try::Tiny;
try {
  decode_json($actual_response);
} catch {
  print "$_\n";
};
```
- in Unix, das ist perl json_load_test.pl > logs/output.txt 2>&1 logs/errors.txt
- In fairness, die OP nicht angeben, ob Sie mit Unix oder ein Betriebssystem ich gerade nachgeholt.
- Die Sache ist die, 1>2 erstellen Sie eine Datei namens "2" im aktuellen Verzeichnis an 🙂
- Danke Thom für deine Antwort, ich entschied mich für die zweite Lösung. Mit, dass die Fehlermeldungen beendet die Anzeige auf der Konsole, aber immer noch nicht schreiben in der logs/output.txt Datei. AUCH kann ich den text geschrieben werden?
- Gut ich entschuldige mich für das fehlen von Informationen, in der Tat bin ich mit der Unix ausgeführt werden, der Befehl
- Fantastisch, das ist genau das, was ich suchte. danke Jungs.
- Wenn Sie kontrollieren möchten, was die Fehlermeldung ist, können Sie entweder 1) schreiben Sie die JSON-Modul zur Ausgabe eine andere Fehlermeldung angezeigt (nicht empfohlen), oder 2) verwenden Sie die eval Methode, die ich geschrieben und drucken, etwas anderes anstelle von $e.
- Ja, die eval-Methode ist eine viel einfachere Lösung für mich. Sie beantwortet meine Frage perfekt. danke.
- Hinweis änderungen - den Stil hatte ich es ursprünglich hatte einige Probleme - Sie können check out search.cpan.org/dist/Perl-Critic/lib/Perl/Critic/Policy/... für details
- eval { decode_json($actual_response); 1; } or do { my $e = $@; print "$e\n"; } sollte eval { decode_json($actual_response); 1; } or do { my $e = $@; print "$e\n"; };
- guter Fang!
InformationsquelleAutor Tamzin Blake

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.