测试比较io_lib生成日期与自己实现的效率

测试结果，自己写的效率要高一些

 

4> test_io:test(1000) 

4> .

{[io,0],[my,0]}

5> test_io:test(10000)

5> .

{[io,2],[my,1]}

6> test_io:test(100000)

6> .

{[io,21],[my,4]}

7> test_io:test(1000000)

7> .

{[io,97],[my,57]}

8> test_io:test(10000000)

8> .

{[io,1596],[my,761]}

9> 

1 -module(test_io).                                                                                                                                 

  2 -export([test/1, test/0]).

  3 

  4 test() ->

  5     test(1).

  6 

  7 test(N) ->

  8     IoResult = test_io(N),

  9     MyResult = test_my(N),

 10     {[io, IoResult],[my, MyResult]}.

 11 

 12 test_io(N) ->

 13     StartTime = timestamp_in_millinsec(),

 14     [begin

 15         {{Y,M,D},{Hour,Min,Sec}}=erlang:localtime(),

 16         Date = lists:flatten(io_lib:format("~4..0B-~2..0B-~2..0B ~2..0B-~2..0B-~2..0B", [Y, M, D, Hour, Min, Sec])),

 17         Date

 18     end || tt<-lists:seq(1,N)],

 19     EndTime = timestamp_in_millinsec(),

 20     EndTime - StartTime.

 21     

 22 test_my(N) ->

 23     StartTime = timestamp_in_millinsec(),

 24     

 25     [begin

 26     {{Y,M,D},{H,Mn,S}}=erlang:localtime(),

 27     F=fun(X) -> if X>9  -> integer_to_list(X) ; true -> "0"++integer_to_list(X) end end,

 28     Ys = F(Y),

 29     Ms = F(M),

 30     Ds = F(D),

 31     Hs = F(H),

 32     Mns = F(Mn),

 33     Ss = F(S),

 34     Date = (Ys ++ "-" ++ Ms ++ "-" ++ Ds ++ " " ++ Hs ++ ":" ++ Mns ++":" ++Ss),

 35     Date

 36     end || tt<-lists:seq(1,N)],

 37     EndTime = timestamp_in_millinsec(),

 38     EndTime - StartTime.

 42 

 43 timestamp_in_millinsec()->  

 44     {MegaSec,Sec,MicoSec}=erlang:now(),  

 45     MegaSec * 1000000000+Sec*1000+MicoSec div 1000.  

 46