代码之家 › 专栏 › 技术社区 › Houda Jimmie R. Houts

以人类可读的方式格式化字节大小的更简单方法?

erlang floating-point formatting

Houda Jimmie R. Houts · 技术社区 · 7 年前

float_as_string() 部分

human_filesize(Size) ->
  KiloByte = 1024,
  MegaByte = KiloByte * 1024,
  GigaByte = MegaByte * 1024,
  TeraByte = GigaByte * 1024,
  PetaByte = TeraByte * 1024,

  human_filesize(Size, [
    {PetaByte, "PB"},
    {TeraByte, "TB"},
    {GigaByte, "GB"},
    {MegaByte, "MB"},
    {KiloByte, "KB"}
  ]).


human_filesize(Size, []) ->
  integer_to_list(Size) ++ " Byte";
human_filesize(Size, [{Block, Postfix}|List]) ->
  case Size >= Block of
    true ->
        float_as_string(Size / Block) ++ " " ++ Postfix;
    false ->
        human_filesize(Size, List)
end.

float_as_string(Float) ->
  Integer = trunc(Float), % Part before the .
  NewFloat = 1 + Float - Integer, % 1.<part behind>
  FloatString = float_to_list(NewFloat), % "1.<part behind>"
  integer_to_list(Integer) ++ string:sub_string(FloatString, 2, 4).

1 回复 | 直到 14 年前

Zed 16 年前

human_filesize(Size) -> human_filesize(Size, ["B","KB","MB","GB","TB","PB"]).

human_filesize(S, [_|[_|_] = L]) when S >= 1024 -> human_filesize(S/1024, L);
human_filesize(S, [M|_]) ->
    io_lib:format("~.2f ~s", [float(S), M]).

推荐文章

mritalian · Erlang ETS内存碎片

8 年前

leifericf · 未找到Erlang“typer”命令(在macOS上安装自制软件)

8 年前

LoranceChen · EVM如何在进程中保持代码版本,OTP在热重载方面做了什么?

8 年前

david · Erlang:从主机名获取ip地址

8 年前

Muhammad Lukman Low Samson · 在Erlang中,将字符串转换为字符的最惯用方法是什么?

8 年前

Matt · 有没有办法访问GenServer的状态?

8 年前

7stud · inets httpd cgi脚本:为什么会出现“没有这样的文件或目录”错误?

8 年前

goncalotomas Lothar · 为什么可以在Erlang中创建对同一进程的多个监视器引用?

8 年前

Chris W · Cowboy Web服务器在将ibrowse依赖项添加到Makefile后启动时崩溃

8 年前

Chris W · 具有并行HTTP请求的Erlang网络问题

8 年前