Perlについての質問箱 37箱目

Perlについての質問箱 37箱目at TECH

Perlについての質問箱 37箱目 - 暇つぶし2ch328:デフォルトの名無しさん
08/08/25 21:12:57
>>318
sub round($) {
return $_[0] % 10 >= 5 ? int($_[0]/10+1)*10 : int($_[0]/10)*10;
}