AK
eval sprintf 'my %s $%s', $pkg, $var_name
Size: a a a
2021 February 06
AK
Сразу понятно стало, спасибо
AK
Мой eval не канает?
SZ
Мой eval не канает?
Почему нет? Всё работает и с sprintf, только зачем:
SZ
@PerlBanjoBot
package xxx;
package yyy;
$zzz::z = \$zzz::z;
package main;
for my $pkg (qw( main xxx yyy zzz nothing )) {
say "($pkg) exists" if
eval sprintf "my %s \$_ = 1", $pkg;
};P
@PerlBanjoBot
package xxx;
package yyy;
$zzz::z = \$zzz::z;
package main;
for my $pkg (qw( main xxx yyy zzz nothing )) {
say "($pkg) exists" if
eval sprintf "my %s \$_ = 1", $pkg;
};SZ
В пакете мы пытаемся определить переменную x. Вот её имя лучше рандомом
Чтобы определить переменную в пакете можно использовать один из пяти (а может и больше, лень думать) способов и my к ним не относится :)
OP
@PerlBanjoBot
package yyy;
my $invisible_variable = 1;
package main;
for my $pkg (qw( main xxx yyy )) { eval "my $pkg \$x = 1" and say "($pkg) exists" };Эээ зачем так сложно?
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
SZ
Эээ зачем так сложно?
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
Я уже это ему выше предлагал, пару недель назад.
А теперь предложил способ, который работает ещё точнее
А теперь предложил способ, который работает ещё точнее
SZ
Эээ зачем так сложно?
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
И это неправда, что для стороннего пользователя это одно и то же
AK
Эээ зачем так сложно?
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
say scalar keys %yyy::;
Будет 0 если пакета нет или в пакете нет ни одной внешне видимой сущности (что для стороннего пользователя одно и тоже)
В пакете может и не быть таких сущностей. Я напоролся недавно на то, что JSON подгружен ещё где-то, но некие XS и PP от него были видны и в моём пакете, хотя new не работал
AK
TYPE конечно оригинальная штука: https://perldoc.perl.org/functions/my Сколько прошло с момента добавления такого синтаксиса - и даже к Perl 7 никто так и не придумал единственного разумного применения.
AP
TYPE конечно оригинальная штука: https://perldoc.perl.org/functions/my Сколько прошло с момента добавления такого синтаксиса - и даже к Perl 7 никто так и не придумал единственного разумного применения.
в cperl есть план по его использованию
DF
Я думал на нем сделать перегрузку методов, но оказалось что толком не применить его
SZ
В пакете может и не быть таких сущностей. Я напоролся недавно на то, что JSON подгружен ещё где-то, но некие XS и PP от него были видны и в моём пакете, хотя new не работал
А вот это уже маловероятно
VG
TYPE конечно оригинальная штука: https://perldoc.perl.org/functions/my Сколько прошло с момента добавления такого синтаксиса - и даже к Perl 7 никто так и не придумал единственного разумного применения.
так "единственное" - это не про перл :)
AS
Всем привет. Изучаю Perl, и случайно наткнулся на неочевидную (для себя) вещь.
То, что push не выдает ошибку на undefined - это особенности внутренней реализации функции push?
То, что push не выдает ошибку на undefined - это особенности внутренней реализации функции push?
VG
Всем привет. Изучаю Perl, и случайно наткнулся на неочевидную (для себя) вещь.
То, что push не выдает ошибку на undefined - это особенности внутренней реализации функции push?
То, что push не выдает ошибку на undefined - это особенности внутренней реализации функции push?
man perlref /autovivification
IB
Всем привет. Изучаю Perl, и случайно наткнулся на неочевидную (для себя) вещь.
То, что push не выдает ошибку на undefined - это особенности внутренней реализации функции push?
То, что push не выдает ошибку на undefined - это особенности внутренней реализации функции push?
Иногда удобно скидывать код с помощью вот такого сервиса — сразу видно что и как работает и легко другим взять и доработать код — https://perlbanjo.com/12b67482d0
AS
Иногда удобно скидывать код с помощью вот такого сервиса — сразу видно что и как работает и легко другим взять и доработать код — https://perlbanjo.com/12b67482d0
Спасибо, возьму себе на вооружение.