SZ
Вот что значит не спать 24+часов
Size: a a a
2021 September 28
SZ
Всё встаёт на свои места
SZ
Спасибо друг, я уже начал сомневаться
RH
/g
Беру словаа обратно!
Беру словаа обратно!
RH
но почему так???
AG
@PerlBanjoBot
use Benchmark "cmpthese";
$a = " " x 16 . "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*//;},
};
use Benchmark "cmpthese";
$a = " " x 16 . "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*//;},
};
P
AG
@PerlBanjoBot
use Benchmark "cmpthese";
$a = " " x 16 . "asd" x 128 . " " x 18;
cmpthese -2 => {
two => sub { $_ = $a; s/\s*$//; s/^\s*// },
two_and_while => sub { $_ = $a; 1 while s/\s$//; s/^\s*//;},
};
use Benchmark "cmpthese";
$a = " " x 16 . "asd" x 128 . " " x 18;
cmpthese -2 => {
two => sub { $_ = $a; s/\s*$//; s/^\s*// },
two_and_while => sub { $_ = $a; 1 while s/\s$//; s/^\s*//;},
};
P
МС
1 while s/\s$//; s/^\s*//;по-моему только первую регулярку будет дёргать
VG
ужыс
AG
На старом перле разница значительная:
Rate two two_and_while
two 39457/s -- -86%
two_and_while 287084/s 628% --
Rate two two_and_while
two 39457/s -- -86%
two_and_while 287084/s 628% --
VG
он без второй регулярки же
AG
я проверил две работают
RH
Обе!
МС
тогда мне непонятно, почему так )
пойду мануал читать
пойду мануал читать
SZ
Потому что вторая без условия, не?
YK
@PerlBanjoBot
use Benchmark "cmpthese";
my $v = " " x 16 . "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 },
};
use Benchmark "cmpthese";
my $v = " " x 16 . "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 },
};
P
Rate one two xxx
one 17612/s -- -53% -97%
two 37397/s 112% -- -93%
xxx 543765/s 2988% 1354% --
https://PerlBanjo.com/415bace823
one 17612/s -- -53% -97%
two 37397/s 112% -- -93%
xxx 543765/s 2988% 1354% --
https://PerlBanjo.com/415bace823
YK
@PerlBanjoBot
use Benchmark "cmpthese";
my $v = " " x 16 . "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*$/$1/g },
};
use Benchmark "cmpthese";
my $v = " " x 16 . "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*$/$1/g },
};