. "asd" x 128 . " " x 18;
cmpthese -1 => {
two => sub { $_ = $v; s/\s*$//; s/^\s*// },
one => sub { $_ = $v; s/(:?^\s*|\s*$)//g },
xxx => sub { $_ = $v; s/^\s*(\S+)\s*$/$1/g },
};
Rate one two xxx one 17612/s -- -53% -97% two 37397/s 112% -- -93% xxx 543765/s 2988% 1354% -- https://PerlBanjo.com/415bace823
Обсуждают сегодня