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 / enum < prev    next >
Encoding:
Text File  |  1992-10-18  |  227 b   |  17 lines
  1. sub enum {
  2.     local($_) = @_;
  3.     local(@specs) = split(/,/);
  4.     local($val);
  5.     for (@specs) {
  6.     if (/=/) {
  7.         $val = eval $_;
  8.     } else {
  9.         eval $_ . ' = ++$val';
  10.     }
  11.     }
  12. }
  13.  
  14. &enum(<<'EOL');
  15. _E_N_U_M_L_I_S_T
  16. EOL
  17.