引数が有効な json でない場合、decode_json() はプログラムを終了します。プログラムを実行し続け、エラーを処理するにはどうすればよいですか?
例:
#!/usr/bin/perl -w
use strict;
use JSON;
my $json='<html></html>';
my $ticker=decode_json($json);
print $json;
最後の印刷が実行されます。
decode_json()
これは、try catch ブロックでをラップする典型的な例のようです。
そうすることで、実行を継続できるようになります。また、エラーを処理するためのドアが開かれるため、エラーが発生した場合に具体的な対応を行うことができます。