Perl Style: Switch Using for and do{} Even More Creatively

Jan 1, 1998 by Tom Christiansen

• Sometimes, aesthetics counts. :-)

      for ($^O) {
          *struct_flock =                do                           {
  
                                  /bsd/  &&  \&bsd_flock
                                         ||
                              /linux/    &&    \&linux_flock
                                         ||
                            /sunos/      &&      \&sunos_flock
                                         ||
                    die "unknown operating system $^O, bailing out";
          };
      }
  

Forward to The Care and Feeding of Modules
Back to Switch with for via && and ||
Up to index

Copyright © 1998, Tom Christiansen All rights reserved.