Perlにinstanceof演算子があればいいのにと思うことがたまにある。 $xがオブジェクトで，$classのインスタンスであれば真を返す演算子だ。 既存のコードではなかなか一発でできない。 $x->isa($class); # (1) ref($x) && eval{ $x->isa($class} }; # (2) Sca…