JSONモジュールでdieした場合でも処理を止めない。
例外処理の使い方とかイマイチ理解していなかったけど、やっぱり大事ということに気づいた。
#!/usr/bin/env perl use strict; use warnings; use JSON; use Data::Dumper; my $json = <<'EOT'; { "foo" : [0,1,2], "bar" : [3,4,5] }, EOT my $obj = ''; eval { $obj = from_json($json); }; if($@){ $obj = 'rescue'; } print Dumper($obj);