_ [Program] Perl での型チェック [Perl]Scalar 変数の型を取得する のを見てちょっと書いてみた。 $ perl -MB -le 'map{my$k=$_;print "$k = ".B::class(B::svref_2object(\$_));} (1,2.1, "3",map{"$_";$_}4,5.2)' 1 = IV 2.1 = NV 3 = PV 4 = PVIV 5.2 = PVNV $ perl -MB -le 'map{my$k=$_;print "$k = ref:".B::class(B::svref_2object(\$_)->RV);} (\1, \2.1, \"3", [],{},\*STDOUT)' SCALAR(0x816a9f4) = ref:IV SCALAR(0x81c9750) = ref:NV SCALAR(0x81c97