[Erlang28]使用匿名函数灵活组合不同的case

cowboy_http.erl里面的date1/2 启示：

以前一般写case里都是这样子：

 date1(Date) ->
     case month1(Date) of
         {error,badarg} ->
             {error,badarg};
         {ok,MonthData} ->
             case timer1(MonthData) of
                 {error,badarg} ->
                     {error,badarg};
                 {ok,TimerData} ->
                     valid_date(TimerData)
             end
     end.

如果时间格式里month格式有3种(month1~month3) timer格式也有(timer1~timer3)
 那么组合就有9种，要写成16个函数(date1~date9),最可怕的还是要为这9个函数取一个非常贴切的函数名，这简直无情啊！
 所以我们仿照cowboy_http.erl里面匿名函数的写法：

 date(Date,MonthFun,TimerFun,ValidFun) ->
     case MonthFun(Date) of
         {error,badarg} ->
             {error,badarg};
         {ok,MonthData} ->
             case TimerFun(MonthData) of
                 {error,badarg} ->
                     {error,badarg};
                 {ok,TimerData} ->
                     ValidFun(TimerData)
             end
     end.

更进一步：假如我们现在只需要MonthFun 和TimerFun,不需要ValidFun函数,怎么办？
 可以把month,timer,Valid都改写成date模式，让它更加灵活。

 date(Date,MonthFun) ->
     MonthFun(Date).

 month(MonthData,[]) ->
     deal_month(MonthData);
 month(MonthData,Fun) ->
     case deal_month(MonthData) of
         {error,badarg} ->
             {error,badarg};
         {ok,MonthData1} ->
             Fun(MonthData1)
     end.
 timer(TimerData,[]) ->
     deal_timer(TimerData);
 timer(TimerData,Fun) ->
     case deal_timer(TimerData) of
         {error,badarg} ->
             {error,badarg};
         {ok,TimerData1} ->
             Fun(TimerData1)
     end.

调用如下：

 date(Date,
     fun(DateTemp) ->
         month(DateTemp,
             fun(Month1) ->
                 timer(Month1)
             end)
     end).

这个看上去不是很直观，但是在多个组合的调用下却是异常的好用！每一个函数都可以自定义下一要执行的函数。