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.eg < prev    next >
Encoding:
Text File  |  1992-10-18  |  334 b   |  20 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.     $RED, $GREEN, $BLUE,
  16.     $CYAN='a', $MAGENTA, $YELLOW,
  17.     $BLACK=-1
  18. EOL
  19. print "$RED $GREEN $BLUE $CYAN $MAGENTA $YELLOW $BLACK\n";
  20.