数値の一桁目を取り出す

たまにド忘れするので、書くうちに覚えるだろうと。
my $num = 123456;
my $digit1 = $num – int( $num / 10 ) *10

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です