[Perl] ファイルサイズ表示のための小さな関数

　Perl でファイルサイズ表示を Windows ちっくにするための小さな関数＋αのメモ。ファイルサイズを 0〜999bytes、0.98K(≒1000)〜999Kbytes、0.98M(≒1000K)〜999Mbytes、 …と常に最大 3 桁で表示します。

use strict;
use warnings;

my $filesize = 123456;
printf 'filesize = %s bytes', comma ($filesize);

my @unit = ('', 'k', 'M', 'G', 'T', 'P');
my @ret = filesizenize ($filesize);
printf ' = %s%s bytes', $ret[0], $unit[$ret[1]];
exit;

;# 指定された数値に3桁毎にコンマを付与する
sub comma { my ($v) = @_; 1 while ($v =‾ s/(¥d+)(¥d¥d¥d)/$1,$2/); $v; }

;# ファイルサイズ(バイト数)をWindowsちっくに正規化
sub filesizenize {
	my ($p, $v) = (0, @_);
	($v /= 1024., $p++) while (999 < $v);
	(round ($v, 2 - int log ($v) / log 10), $p);
}

;# 指定された桁数で小数点以下($rが負数の場合は桁数)を四捨五入する
sub round { my ($v, $r) = @_; int ($v * 10 ** $r + 0.5) / 10 ** $r; }

$i	comma ($i)	filesizenize ($i)
999	999	(999, 0)
1000	1,000	(0.98, 1)
1024	1,024	(1, 1)
1234	1,234	(1.21, 1)
12340	12,340	(12.1, 1)
123400	123,400	(121, 1)
1234567	1,234,567	(1.18, 2)

コメントを投稿する

返信先
コメント	お気軽にコメントをお寄せくださいませ・コメントを投稿するにはブラウザの JavaScript を有効にしてください・入力された通りに改行位置で改行されます・HTML タグは使用できませんが、文中の URL は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください　・MovableType関係の質問でテンプレートタグをそのまま書かれると見えません
名前	(匿名可/必須/公開)
メール	(匿名可/必須/非公開)
投稿確認	(必須) コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。

ヘッダメニュー

[Perl] ファイルサイズ表示のための小さな関数

この記事を読んだ人はこんな記事も読んでいます

この記事のアーカイブ

関連記事/トラックバック

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー

ヘッダメニュー

[Perl] ファイルサイズ表示のための小さな関数

この記事を読んだ人はこんな記事も読んでいます

その他の関連する記事

この記事のアーカイブ

関連記事/トラックバック

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー