Help for this page

Select Code to Download


  1. or download this
    $key  = 'default';
    $case =~ s/$reg2// && ($key = 'a');
    $case =~ s/$reg1// and do { whatever(); $key = 'b' };
    ...
    
  2. or download this
    $dispatch{$key}->(@args);