オブジェクトからクラス名をえる方法

クラス名をえるには以下のようにする。ただしここで Scalar::Util は標準添付モジュールである(from 5.7.3)。

use Scalar::Util qw/blessed/;
say blessed($obj);

Published: 2011-05-31(Tue) 02:23