JSONモジュールとJSON::PPモジュール、どちらかが使えれば基本的には問題ないでしょうが、もし何かしらの理由で両方使いたくなった場合にどうするか。 普通にuse JSON、use JSON::PPと書いただけでは、"Prototype mismatch: sub main::decode_json"のような…

例外処理機構のないperlで、例外処理と同じようなことをするにはどうすえば良いか。 結論としてはevalを使用すれば良い。 サンプルコード #!/usr/bin/perl use strict; use warnings; # エラーが発生する場合 eval { 1/0; }; if ($@) { print "Error1: $@"; …

仕事で少し試したので、備忘録として。 JUnitを使ったことがあると、何をやっているか直感的に分かるかもしれない。 サンプルコード（成功する場合） #!/usr/bin/perl use strict; use warnings; use Test::Simple qw(no_plan); #以下は成功する。 ok(1 == 1…