ExtMail服务器社区 » Perl 语言编程 » 将文件大小转换为容易理解的显示方式

fengyong 发表于 2008-7-21 09:23

将文件大小转换为容易理解的显示方式

[code]sub convert_size{
        my $size=shift;
        #byte
        if ($size <1024){
                return "$size B";
        }
        #kb
        if ($size >=1024 &&$size <1024*1024){
                return int($size/1024)." KB";
        }
        #mb
        if ($size >= 1024*1024){
                return int($size/(1024*1024))." MB";
        }
}[/code]

ejzhang 发表于 2008-7-21 18:15

怎么没有GB、TB？:lol

hzqbbc 发表于 2008-7-21 19:30

:lol  GB, TB 牛。这个考虑做上去~

fengyong 发表于 2008-7-22 08:03

[quote]原帖由 [i]ejzhang[/i] 于 2008-7-21 18:15 发表 [url=http://www.extmail.org/forum/redirect.php?goto=findpost&pid=47044&ptid=8387][img]http://www.extmail.org/forum/images/common/back.gif[/img][/url]
怎么没有GB、TB？:lol [/quote]

没有这样的必要吧，整个网站才200MB 左右。

查看完整版本: 将文件大小转换为容易理解的显示方式