是否有更簡單的方法來修改Erlang中subsubsub記錄字段中的值？

Question

所以，我已經有了一個記錄定義一個相當深的層次：

​​

現在我有一個安吉拉卷，我想使一個新的這 就像它除了一個價值sububsubrecords的子集。 這是我一直在做的事情。

update_attitude(Ench0, NewState) 
    when is_record(Ench0, enchilada)-> 

    %% Pick the old one apart. 
    #enchilada{stamped_packet  = SP0} = Ench0, 
    #stamped_packet{packet = PK0} = SP0, 
    #packet{cat = Tag0} = PK0, 

    %% Build up the new one. 
    Tude1 = Tude0#cat{attitude = NewState}, 
    PK1 = PK0#packet{cat = Tude1}, 
    SP1 = SP0#stamped_packet{packet = PK1}, 

    %% Thank God that's over. 
    Ench0#enchilada{stamped_packet = SP1}. 

只是思考這個是痛苦的。有沒有更好的辦法？

Answer 1

由於希內克建議，你可以在的Elid臨時變量做：

update_attitude(E = #enchilada{stamped_packet = (P = #packet{cat=C})}, 
       NewAttitude) -> 
    E#enchilada{stamped_packet = P#packet{cat = C#cat{attitude=NewAttitude}}}. 

Yariv Sadan很沮喪與同樣的問題，寫Recless，a type inferring parse transform for records這樣可以讓你寫：

-compile({parse_transform, recless}). 

update_attitude(Enchilada = #enchilada{}, Attitude) -> 
    Enchilada.stamped_packet.packet.cat.attitude = Attitude. 

Answer 2

試試這個：

update_attitude(E = #enchilada{ 
    stamped_packet = (SP = #stamped_packet{ 
     packet = (P = #packet{ 
     cat = C 
    })})}, NewState) -> 
    E#enchilada{ 
     stamped_packet = SP#stamped_packet{ 
     packet = P#packet{ 
      cat = C#cat{ 
      attitude = NewState 
    }}}}. 

反正，結構是不是二郎神的最有力的組成部分。