数値の一桁目を取り出す 投稿日時: 2008年9月2日 投稿者: admin たまにド忘れするので、書くうちに覚えるだろうと。 my $num = 123456; my $digit1 = $num – int( $num / 10 ) *10