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

21:03 しかし、差分有り無しを判断するためには、やむなしなのか。 21:02 1を返すのに、正常というのは仕様として微妙だよな〜。 21:01 今日知ったこと、diffの場合、実行結果が1であっても正常。0の場合、差分無し。1の場合、差分あり・2の場合、エラー。実…