Help for this page

Select Code to Download


  1. or download this
    $ time perl -e 'for ($x=0; $x!=100_000_000; ++$x) {}'

...
real    0m1.570s
user    0m1.562s
sys    0m0.008s
  2. or download this
    $ perl -MO=Concise -e 'for ($x=0; $x!=100_000_000; ++$x) {}'
h  <@> leave[1 ref] vKP/REFC ->(end)
...
9                       <$> gvsv(*x) s ->a
b                 <0> unstack v ->c
-e syntax OK