整数の除算

ショック!

$ perl -e 'print 10 / 3, "\n"'
3.33333333333333

あうあう、知らなかった……。私ぁ今までどうやって生きてきたんだろう。


で、3 を得るには、正規表現置換かなんかで "." 以降削るのが良いの?
もっとスマートな方法はないべか?

$ perl -e '
my $n = 10 / 3;
print $n, "\n";
$n =~ s/\..*$//;
print $n, "\n";
'
3.33333333333333
3

これってダサイよねぇ。