Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Substitution unexpectedly very slow, in Strawberry

by choroba (Cardinal)
on Aug 06, 2023 at 20:50 UTC ( [id://11153748] : note . print w/replies, xml ) Need Help??


in reply to Substitution unexpectedly very slow, in Strawberry

Just a comparison. $^O eq 'linux':
0.254748821258545 0.255423069000244 v5.26.1 0.514794111251831 0.481626033782959 v5.37.3

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]