Perl Style: Switch with for via && and ||

Jan 1, 1998 by Tom Christiansen

• Be careful that the RHS of && is always true.

     $dir = 'http://www.wins.uva.nl/~mes/jargon';
     for ($ENV{HTTP_USER_AGENT}) {
         $page  =    /Mac/            && 'm/Macintrash.html'
                  || /Win(dows )?NT/  && 'e/evilandrude.html'
                  || /Win|MSIE|WebTV/ && 'm/MicroslothWindows.html'
                  || /Linux/          && 'l/Linux.html'
                  || /HP-UX/          && 'h/HP-SUX.html'
                  || /SunOS/          && 's/ScumOS.html'
                  ||                     'a/AppendixB.html';
     }
  

Forward to Switch Using for and do{} Even More Creatively
Back to Switch by Using do{} Creatively
Up to index

Copyright © 1998, Tom Christiansen All rights reserved.