Size: a a a

2021 September 28

P

PerlBanjoBot in Modern::Perl
Rate   one   two   xxx
one  19140/s    --  -59%  -97%
two  46419/s  143%    --  -93%
xxx 628278/s 3183% 1253%    --
https://PerlBanjo.com/b45bda2f86
источник

МС

Мастер Спирта... in Modern::Perl
точно. Отработают обе, только первая будет по одному пробелу откусывать за цикл, а вторая сразу все сожрёт
источник
2021 September 29

AG

Anatolia Gr in Modern::Perl
xxx  —- конечные пробелы не режет, ну и структурно голимая
источник

YK

Yegor K in Modern::Perl
да, не то
источник

YK

Yegor K in Modern::Perl
@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/ },
};
источник

P

PerlBanjoBot in Modern::Perl
Rate  one  two  xxx
one 17965/s   -- -59% -60%
two 43930/s 145%   --  -1%
xxx 44429/s 147%   1%   --
https://PerlBanjo.com/4c66870fb0
источник

RH

Roman Hamster in Modern::Perl
Кароч, всем спасибо - был не прав
Переписал совй trim на всех проектах.
Пойду спать - надеюсь получится, а то как то в а*хyè
источник

AK

Andrey Konovalov in Modern::Perl
Да, но если заменить в two \s* на \s+ - он вдруг становится в 10 раз быстрее!!
источник

YK

Yegor K in Modern::Perl
и это радует
источник

AP

Alexander P in Modern::Perl
Более читабельный и однострочный вариант:
(my $msg_subj = $msg->subject) =~ s/.../.../;

/o на простеньких регекспах вряд ли много сэкономит, а если замена делается только раз за запуск скрипта, то вообще ничего.
Про два s/// говорилось то ли в camel book, то ли в cookbook, емнип. Тогда можно так:
my $msg_subj = $msg->subject =~ s/^\s+//r =~ s/\s+$//r
источник

AP

Alexander P in Modern::Perl
Как они живут с этим? И как это развидеть? :)
источник

SZ

Sergey Zhmylove in Modern::Perl
Да очень просто: большинство наших девов про перл знают только то, что он существует и в основном пишут на питоне. Я так до сих пор и не понял, зачем они вообще в перл полезли, если вообще не умеют им пользоваться... Разве что чтобы отвязаться от зависимости от конкретной версии питона
источник

T

Telebotik in Modern::Perl
Полезли потому что ты есть и думали подставишь товарищам плечо, а ты их троллить тут начал😜
источник

SZ

Sergey Zhmylove in Modern::Perl
Хехе, ну неет, они это уг 8 лет разрабатывали до меня в несколько тысяч харь
источник

A

Alexander in Modern::Perl
что это за бредни?
вы тут лахтовым методом действовать решили? ))
источник

VG

Vadim Goncharov in Modern::Perl
что за лахтовый метод?
источник

A

Alexander in Modern::Perl
когда желаемое за действительное выдают
источник

SZ

Sergey Zhmylove in Modern::Perl
Я бы сделал скриншот кода, но nda
источник

W

Warstone in Modern::Perl
> заблокировал(а) German (@GermanSemenkov)
German (@GermanSemenkov)
А за что?... За упоминание какого-то человека?
источник

W

Warstone in Modern::Perl
Прямо хочется уже немного выпилить эту Ирму.
источник