[perl] 해쉬 동적 추가

http://blog.naver.com/PostView.nhn?blogId=alrogia&logNo=70105826406

* $in{} : 웹상에서 아규먼트를 받을 때

* % 해시 생성

* @Args{"key"} = value : 동적 키와 값 추가

 

---

+ 추가( 보다 명시적이고 효율적인 방법)

 예시 구조 : Devices -> Tapes(N개) -> N개의 속성들(KEY) = 속성 값

 동적추가 :  $Devices{$TAPEKEY}{$TapeNum}{$splitLine[0]} = $splitLine[1];

 

 

 

---

sub SaveConfig

{

        $Arm_Devices = $in{ARM_DEVICES};

        $Tape_Devices = $in{TAPE_DEVICES};

        $Tcp_Port = $in{TCP_PORT};

        $Acl_Support = $in{ACL_SUPPORT};

         

        %Args = ('arm-devices' => $in{ARM_DEVICES});

        @Args{"tape-devices"}=$in{TAPE_DEVICES};                                                              

        $lyk = $Args{'arm-devices'};

        $lyk2 = $Args{'tape-devices'};

     

  }