"asd" x 128 . " " x 18;
cmpthese -2 => {
two => sub { $_ = $a; s/\s*$//; s/^\s*// },
one => sub { $_ = $a; s/(:?^\s*|\s*$)//g },
two_and_while => sub { $_ = $a; 1 while s/\s$//; s/^\s*//;},
};
<timeout> https://PerlBanjo.com/03469dbfee
Обсуждают сегодня