Help for this page

Select Code to Download


  1. or download this
    keys my %cache = @in;
    $cache{$_} = KEY($_) for @in;
    
  2. or download this
    keys my %cache = @in;
    @cache{@in} = map KEY($_) => @in;
    
  3. or download this
    keys %h = @a;
    @h{ @a } = ... ; # do something useful
    
  4. or download this
    use strict;
    use warnings;
    ...
            },
        })
    }
    
  5. or download this
        Rate   4   3   2   1
    4 1507/s  -- -3% -4% -5%
    ...
    1   1.35  3%  -- -0% -0%
    2   1.35  3%  0%  -- -0%
    3   1.35  3%  0%  0%  --