AG
ещё можно tr/\n/\n/. И ++$count while $file =~ m/\n/g;
Size: a a a
2021 January 28
SZ
надо проверить хз может какая оптимизация под это есть
Нету
SZ
ещё можно tr/\n/\n/. И ++$count while $file =~ m/\n/g;
While это медленно
SZ
ещё можно tr/\n/\n/. И ++$count while $file =~ m/\n/g;
Самое эффектное -- это tr с одним аргументом
AP
я таки думаю, самое эффективное, это инлайн-си функция
AP
всё уже украдено до нас: https://stackoverflow.com/questions/29587158/perl-number-of-lines-in-a-string
SZ
зачем? Это же больно по производительности и бессмысленно с точки зрения логики
Но как я уже говорил, от задачи зависит и матча одного символа может не хватить
SZ
И тогда
my $lines = () = $file =~ m/$/gsm;DF
Но как я уже говорил, от задачи зависит и матча одного символа может не хватить
инвалиды с маками не волнуют :)
DF
или там сейчас тоже '\n'?
SZ
или там сейчас тоже '\n'?
Не, там инвалиды
AG
While это медленно
У меня на втором месте после tr однако
VO
а для pack/unpack 24-х битных int у нас ведь нет красивого решения?
R
а) запаковать как 32 и сделать substr
б) 8 + 16
б) 8 + 16
SZ
У меня на втором месте после tr однако
Второе место это не так важно при такой разнице
VO
ну в общем криво. для моего частного случая (24 и потом 8) лучше 32 и разделять битовой арифметикой
SZ
@PerlBanjoBot
my $str = "abc\n" x 1048576;
my $lines;
use Benchmark "cmpthese";
cmpthese -1, {
tr => sub {$lines = ($str =~ tr/\n//)},
while_dollar => sub {$lines = 0; $lines++ while $str =~ m/$/gsm},
while_n => sub {$lines = 0; $lines++ while $str =~ m/\n/gs},
};P
@PerlBanjoBot
my $str = "abc\n" x 1048576;
my $lines;
use Benchmark "cmpthese";
cmpthese -1, {
tr => sub {$lines = ($str =~ tr/\n//)},
while_dollar => sub {$lines = 0; $lines++ while $str =~ m/$/gsm},
while_n => sub {$lines = 0; $lines++ while $str =~ m/\n/gs},
};Rate while_dollar while_n tr
while_dollar 4.39/s -- -61% -99%
while_n 11.3/s 158% -- -98%
tr 457/s 10311% 3939% --
https://PerlBanjo.com/19476455e6
while_dollar 4.39/s -- -61% -99%
while_n 11.3/s 158% -- -98%
tr 457/s 10311% 3939% --
https://PerlBanjo.com/19476455e6
AG
@PerlBanjoBot use Benchmark qw/cmpthese/;
my $x = "0" x 70 . "\n";
my $file = $x x 1000;
cmpthese(-1, {
tr1 => sub { my $lines = $x =~ tr/\n/\n/ },
tr2 => sub { my $lines = $x =~ tr/\n// },
sub => sub { my $lines = $x =~ s/\n/\n/g },
re1 => sub { my $lines = () = $x =~ m/\n/g },
while => sub { my $lines = 0; ++$lines while $x =~ m/\n/g },
});
my $x = "0" x 70 . "\n";
my $file = $x x 1000;
cmpthese(-1, {
tr1 => sub { my $lines = $x =~ tr/\n/\n/ },
tr2 => sub { my $lines = $x =~ tr/\n// },
sub => sub { my $lines = $x =~ s/\n/\n/g },
re1 => sub { my $lines = () = $x =~ m/\n/g },
while => sub { my $lines = 0; ++$lines while $x =~ m/\n/g },
});
P
@PerlBanjoBot use Benchmark qw/cmpthese/;
my $x = "0" x 70 . "\n";
my $file = $x x 1000;
cmpthese(-1, {
tr1 => sub { my $lines = $x =~ tr/\n/\n/ },
tr2 => sub { my $lines = $x =~ tr/\n// },
sub => sub { my $lines = $x =~ s/\n/\n/g },
re1 => sub { my $lines = () = $x =~ m/\n/g },
while => sub { my $lines = 0; ++$lines while $x =~ m/\n/g },
});
my $x = "0" x 70 . "\n";
my $file = $x x 1000;
cmpthese(-1, {
tr1 => sub { my $lines = $x =~ tr/\n/\n/ },
tr2 => sub { my $lines = $x =~ tr/\n// },
sub => sub { my $lines = $x =~ s/\n/\n/g },
re1 => sub { my $lines = () = $x =~ m/\n/g },
while => sub { my $lines = 0; ++$lines while $x =~ m/\n/g },
});
<timeout>
https://PerlBanjo.com/5ad52ed9e4
https://PerlBanjo.com/5ad52ed9e4