Question

在Erlang中，关于时区的特定时间戳添加/减去单位的最佳方法是什么？

根据我的发现，stdlib的日历可以使用本地或UTC时区，不再需要。此外，建议只在UTC时区进行算术运算（原因很明显）。

例如，如果我需要在{{2011,3,24}，{11,13,15}}中添加1个月，比如CET（中欧时间）和本地（系统）时区不是CET？这与将此时间戳转换为UTC甚至不同，增加31 * 24 * 60 * 60秒并转换回CET（这将给{{2011,4,24}，{12,13,15}}而不是{{2011,4,24}，{11,13,15}}）。顺便说一句，如果CET不是stdlib的本地时区，我们甚至不能做这样的事情。

我发现谷歌搜索的答案是：

setenv使当地时区=所需的时区（首先是非常丑陋的;然后它只允许将所需的时区转换为utc并执行与utc相对应的算术，而不是所需的时区）
open_port到linux date util并在那里做算术（不是那么难看;相当慢;需要一些解析，因为erlang和date之间的协议将是文本的）
使用标准库将端口驱动程序或erl_interface转换为C（根本不是丑陋的;但是我没有找到准备使用的解决方案，而且我不擅长写C）

理想的解决方案是使用操作系统时区信息在Erlang中编写的内容，但我没有找到任何内容。

现在我坚持解决方案2（open_port到date util）。有没有更好的办法？

提前致谢。

P上。 S.有一个类似的问题，但没有好的答案Time zone list issue

Answer 1

希望能帮助别人。

如果有人指出可以改进的内容，将不胜感激。提前致谢！

port_helper.erl

-module(port_helper).
-export([get_stdout/1]).
get_stdout(Port) ->
    loop(Port, []).
loop(Port, DataAcc) ->
    receive
        {Port, {data, Data}} ->
            loop(Port, DataAcc ++ Data);
        {Port, eof} ->
            DataAcc
    end.

timestamp_with_time_zone.erl

-module(timestamp_with_time_zone).
-export([to_time_zone/2, to_universal_time/1, modify/2]).
to_time_zone({{{Year, Month, Day}, {Hour, Minute, Second}}, TimeZone}, OutputTimeZone) ->
    InputPattern = "~4.10.0B-~2.10.0B-~2.10.0B ~2.10.0B:~2.10.0B:~2.10.0B",
    InputDeep = io_lib:format(InputPattern, [Year, Month, Day, Hour, Minute, Second]),
    Input = lists:flatten(InputDeep),
    {external_date(Input, TimeZone, OutputTimeZone), OutputTimeZone}.
to_universal_time({{{Year, Month, Day}, {Hour, Minute, Second}}, TimeZone}) ->
    {Timestamp, "UTC"} = to_time_zone({{{Year, Month, Day}, {Hour, Minute, Second}}, TimeZone}, "UTC"),
    Timestamp.
modify({{{Year, Month, Day}, {Hour, Minute, Second}}, TimeZone}, {Times, Unit}) ->
    if
        Times > 0 ->
            TimesModifier = "";
        Times < 0 ->
            TimesModifier = " ago"
    end,
    InputPattern = "~4.10.0B-~2.10.0B-~2.10.0B ~2.10.0B:~2.10.0B:~2.10.0B ~.10B ~s~s",
    InputDeep = io_lib:format(InputPattern, [Year, Month, Day, Hour, Minute, Second, abs(Times), Unit, TimesModifier]),
    Input = lists:flatten(InputDeep),
    external_date(Input, TimeZone, TimeZone).

external_date(Input, InputTimeZone, OutputTimeZone) ->
    CmdPattern = "date --date 'TZ=\"~s\" ~s' +%Y%m%d%H%M%S",
    CmdDeep = io_lib:format(CmdPattern, [InputTimeZone, Input]),
    Cmd = lists:flatten(CmdDeep),
    Port = open_port({spawn, Cmd}, [{env, [{"TZ", OutputTimeZone}]}, eof, stderr_to_stdout]),
    ResultString = port_helper:get_stdout(Port),
    case io_lib:fread("~4d~2d~2d~2d~2d~2d", ResultString) of
        {ok, [YearNew, MonthNew, DayNew, HourNew, MinuteNew, SecondNew], _LeftOverChars} ->
            {{YearNew, MonthNew, DayNew}, {HourNew, MinuteNew, SecondNew}}
    end.

Erlang：带时区算术的时间戳

1 个答案: