精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● CGI>>编程技巧>>Re:Re:PERL 怎样进行四舍五入,并把结果保存到一个变量中?

主题:Re:Re:PERL 怎样进行四舍五入,并把结果保存到一个变量中?
发信人: zhcharles(小传)
整理人: workingnow(2002-09-30 12:01:53), 站内信件
【 在 david.hjy 的大作中提到:】
:谢谢!!
:......
 
sub 四舍五入 {
    my $num = shift;

    if($num - int($num) >= 0.5) {
        return (int($num) + 1);
    }
    else {
        return int($num);
    }
}

my $this_num = 四舍五入(4.5);

返回 5





----
█████████  
█┌─────┐█  
█│zhcharles │█  
█│  CGI 版  │█  
█│ 版 ★ 斧 │█   
█│  专用章  │█   
█└─────┘█   
█████████ 
 
    
答之意,乃解问者之困也! 
   
我无意将答案写得如何如何动听,只求能真正地解决您的问题! 
   
小传 ( Charles Feng ) [email protected]   OICQ:17866295 
    

[关闭][返回]