Help for this page

Select Code to Download


  1. or download this
    [18:46:32.42] P:\test>junk
                  Rate Ref_Named     Named  Ref_Copy     Shift       POE  
    +  Normal
    ...
    Shift     639848/s      437%      423%      248%        --       -9%  
    +    -17%
    POE       701269/s      488%      473%      281%       10%        --  
    +     -9%
    Normal    768699/s      545%      528%      318%       20%       10%  
    +      --
    
  2. or download this
    [18:43:58.10] P:\test>perl -MO=Deparse -e"use constant{ONE=>1,TWO=>2};
    + for( ONE .. TWO) { print }"
    use constant ({'ONE', 1, 'TWO', 2});
    ...
        print $_;
    }
    -e syntax OK