有没有根据字节大小转换成KB,MB,GB的函数？

ustctapper

UID: 23932
帖子: 2
积分: 4
在线时间: 10 分钟

1^# ustctapper 发表于 2007-12-04 16:52

有没有根据字节大小转换成KB,MB,GB的函数？

就像du -sb <dir> VS du -sh <dir>这样
给定一个数字序列（字节数）$bytes
smartbytes($bytes[, $float]) 小数点后面几位数字

lonelyair

UID: 41707
帖子: 141
积分: 324
在线时间: 1 天 3 小时

2^# lonelyair 发表于 2007-12-04 17:10

自己动手算,
$bytes / 1024 --K
$bytes / 1024 * 1024 --M
...

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

3^# 放驴娃发表于 2007-12-04 17:13

自己写一个吧。

ustctapper

UID: 23932
帖子: 2
积分: 4
在线时间: 10 分钟

4^# ustctapper 发表于 2007-12-04 18:00

找不到找现成的就只能自己动手了……

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

5^# Lonki 发表于 2007-12-04 20:55

你能搜到一篇文章叫"将linux下的ls命令用perl移植到windows下"

而ls命令正好有这功能:>

是这么写的:
sub tpe{
my $bb=shift;
my $type;
if($bb<1048576 && $bb>=1024){
$type=(eval "$bb/1024")."K";
}elsif($bb>=1048576 && $bb<1073741824){
$type=(eval "$bb/(1024*1024)")."M";
}elsif($bb>=1073741824){
$type=(eval "$bb/(1024*1024*1024)")."G";
}else {
$type=$bb."B";
}
$type =~ s;^(\d+\.\d{2})(\d+)([B|K|M|G]);$1$3;g; #$type now is a array.
scalar($type);
}

ustctapper

UID: 23932
帖子: 2
积分: 4
在线时间: 10 分钟

6^# ustctapper 发表于 2007-12-08 14:56

use Number::Format qw(:subs);
$formatted = format_bytes($number, $precision);