数値の一桁目を取り出す

Perl Add comments

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

Leave a Reply

WP Theme & Icons by N.Design Studio
Entries RSS Comments RSS ログイン