end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転しました

Number::Format で数値を human-readable に表示

perl cpanモジュールガイド」を読んだら、Number::Formatと興味深気なmoduleを見かけました。

lsコマンドでは、 -h (human-readable)スイッチで、K,M,G等 file sizeを人が読みやすい(分かりやすい?)感じに表示してくれます。

$ ls -lh
total 3.1M
drwxr-xr-x 4 endo endo 4.0K Apr 17 08:55 Gearman-1.11
-rw-rw-r-- 1 endo endo  27K Jan 17  2010 Gearman-1.11.tar.gz
-rwxr--r-- 1 endo endo 3.0M Apr 18 00:06 MITSUMORI.pdf
-rwxrw-r-- 1 endo endo 5.5K Apr 19 07:16 hoge.xls
-rw-rw-r-- 1 endo endo 7.8K Apr 17 08:56 index.html

これを自前で実装するには、意外と面倒ですが、Number::Formatのformat_bytes() で実現できるようです。

http://search.cpan.org/perldoc?Number::Format