Help for this page

Select Code to Download


  1. or download this
        grep => sub {
        while ( $data =~ /^(\d+) (\d+)/mg ) {
...
grep_1 316/s     --   -61%
grep   811/s   156%     --
  2. or download this
    perl -MO=Concise,-exec -e "grep { $1 eq $_ } @a"
1  <0> enter v
...
a      <2> seq sK/2
           goto 7
b  <@> leave[1 ref] vKP/REFC
  3. or download this
    perl -MO=Concise,-exec -e "grep { 1; $1 eq $_ } @a"
1  <0> enter v
...
d      <@> leave sKP
           goto 7
e  <@> leave[1 ref] vKP/REFC