Help for this page

Select Code to Download


  1. or download this
    $_ = "use strict; use warnings; for (1..10_000) { my \$x = '|0|0|0|0|0
+|0|'; $_ }";
  2. or download this
    >perl -MO=Concise -e"use strict; print 'a'"
6  <@> leave[1 ref] vKP/REFC ->(end)
...
3        <0> pushmark s ->4
4        <$> const[PV "a"] s ->5
-e syntax OK
  3. or download this
    >perl -MO=Concise -e"require strict; print 'a'"
9  <@> leave[1 ref] vKP/REFC ->(end)
...
6        <0> pushmark s ->7
7        <$> const[PV "a"] s ->8
-e syntax OK