A
да, так работает отлично и так же быстро, спасибо за наводку)
В эту сторону я почему-то не думал
В эту сторону я почему-то не думал
Size: a a a
2021 July 29
a
Просто -> всегда работает в рантайме.
YM
Как-то это не очень...
a
Вы про акроним для функции с инкрементом? Potentially incrementing что-то там? Да, надо более понятные имена выбирать.
YM
Я про
sub pizda {state $a = 10; return $a++; }a
А что не так? Нормальная процедурка.
TZ
>> sub pizda {
это зачОт )))
это зачОт )))
A
https://gist.github.com/ruzhnikov/fdf58131395cfc687c25c8ffc0a96f34
$ perl -c m.pm
Ambiguous use of @{FOO} resolved to @FOO at m.pm line 18.
Variable "@FOO" is not imported at m.pm line 18.
(Did you mean &FOO instead?)
Global symbol "@FOO" requires explicit package name (did you forget to declare "my @FOO"?) at m.pm line 18.
m.pm had compilation errors.
A
меняем
на
и код работает
for my $x ( @{ FOO } )на
for my $x ( @{ $self->FOO } )и код работает
a
Либо можете () после FOO указать. Перл не телепат. Ему надо понимать, bareword здесь или доступ к константе
Ii
еще такую запись можно увидеть
for my $x ( @{ +FOO } )
for my $x ( @{ +FOO } )
A
https://gist.github.com/ruzhnikov/3b9bf0355f984e90395e97593d0f8316
офигеть. Пора прод переписывать ))
$ perl bench.pl
Rate readonly constant
readonly 321554/s -- -93%
constant 4721290/s 1368% --
офигеть. Пора прод переписывать ))
AK
for my $x ( @{ m::FOO } )
?GK
Так можно же списочную константу еще задавать типа:
use constant FOO => qw(a b c);A
Ambiguous use of @{M::FOO} resolved to @M::FOO at M.pm line 18.GK
Только единственное ее надо вызывать всегда в списочном контексте
@x = (FOO)[0,1] напримерGK
Ну т.е. вызов без оборачивающих
() пока не задокументированGK
вообще насчет констант и readonly на ссылки я бы аккуратнее был, возможно это не совсем то, что ожидается:)
GK
@PerlBanjoBot $ perl -E 'use constant A => []; push @{+A}, 1, 2, 3; say for @{+A}; '