| http://www.w3.org/ns/prov#value | - grep_eq_expr grep_eq_blck 28902/s -- -5% grep_eq_expr 30282/s 5% -- If, however, the expression is a regexp, things change drastically: use Benchmark qw /cmpthese/; our @array = 101 .. 200; cmpthese -2 => { grep_re_expr => '$::b1 = grep /^50$/, @::array', grep_re_blck => '$::b2 = grep {/^50$/} @::array', }; __END__ Rate grep_re_blck grep_re_expr grep_re_blck 6455/s -- -69% grep_re_expr 20848/s 22
|
