home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch5 / caseassoc < prev    next >
Encoding:
Text File  |  1992-10-18  |  360 b   |  21 lines
  1. sub case {
  2.     local(*assoc,$_) = @_;
  3.     for (split(/\n/)) {
  4.     /^(\S+)\s+(.*)/;
  5.     for (eval $1) {
  6.         $assoc{$_} = $2;
  7.     }
  8.     }
  9. }
  10.  
  11. &case(*_V_A_R_I_A_B_L_E,<<'ENDCASE');
  12. _R_A_N_G_E _A_C_T_I_O_N
  13. _R_A_N_G_E _A_C_T_I_O_N
  14. ...
  15. _R_A_N_G_E _A_C_T_I_O_N
  16. ENDCASE
  17.  
  18. ...
  19.  
  20. eval _$_V_A_R_I_A_B_L_E{_S_E_L_E_C_T_O_R};
  21.