Help for this page

Select Code to Download


  1. or download this
    sub test3 {
    return if $_[0] > 9;
...
    elsif ($a==8) {}
    elsif ($a==9) {}
}
  2. or download this
    C:\test>junk37
test1 took: 0.67200 seconds
...
test2 took: 0.30349 seconds
test3 took: 0.29475 seconds
  3. or download this
    my @dispatch = (
    sub {},
...
    return if $_[0] > 9;
    $dispatch[ $_[0] ]->( $_[0] );
}