День добрый.
Локализация $DB::single работает без проблем, но если брать ссылку на неё, то
возникают проблемы:
The localization of $DB::single works fine, but the reference to it does not
work:
{
$DB::single = 7; my $x = \$DB::single;
print "Before: ".
http://search.cpan.org/dist/perlsecret/lib/perlsecret.pod
оно?
On 01/06/2016 08:19 PM, Nikolay Poletaev wrote:
Друзья, в том году на каком то из YAPC, рассказывали об интересных
приемах (типо несовсем документированные фичи) при работе с данными в
Perl, никто не поделисться ссылкой?
--
Андрей, спасибо, оно!
6 января 2016 г., 21:40 пользователь Андрей Асякин написал:
> http://search.cpan.org/dist/perlsecret/lib/perlsecret.pod
> оно?
>
>
> On 01/06/2016 08:19 PM, Nikolay Poletaev wrote:
>>
>> Друзья, в том году на каком то из YAPC, рассказывали об интересных
>И уж совсем не понятно, что же вы пытались
сделать, что в итоге такой кусок кода получился )))
Хотел положить ссылки на $DB::single в массив, чтобы можно было управлять
значениями, в которые будет восстановлено $DB::single при выходе из блока. Это
удобно, когда мы хотим выйти из текущей
А какая версия Perl у вас?
А то вот я запускаю ваш пример в виде такого скрипта:
=== test.pl
#!perl
print "Case 1. DB special var\n";
{
$DB::single = 7; my $x = \$DB::single;
print "Before: ". \$DB::single ." <<$x $$x\n";
local $DB::single = 0;
print "After: ". \$DB::single ."
Друзья, в том году на каком то из YAPC, рассказывали об интересных
приемах (типо несовсем документированные фичи) при работе с данными в
Perl, никто не поделисться ссылкой?
--
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org
2016-01-07 6:19 GMT+03:00 Eugen Konkov :
> Спасибо! Очень много интересной информации вы мне дали. Пойду изучать...
> Не могли бы вы мне подсказать файл, в котором перл генерирует обком для goto?
Ну это просто. Все OP в файлах op*.c, так что ack 'pp_goto' op*.c и получаем...
Title: Re[2]: [Moscow.pm] Áåçîïàñíîñòü Perl
ÐÑжно взÑÑÑ ÐºÐ½Ð¸Ð³Ñ:
http://shop.oreilly.com/product/9780596000806.do
Ð½Ñ Ð¸Ð»Ð¸ Ð²Ð¾Ñ ÑÑо:
http://pdl.perl.org/?page=screenshots/index
и напиÑаÑÑ ÑÑаÑÑÑ, поÑÐµÐ¼Ñ Ð´ÑÑгие ÑзÑки гавно, ÑÑо не
Ну вот это уже интереснее )
Так вот:
1. Без дебаггера, $DB::single обычный скаляр, с ним всё происходит как
надо (в вашем случае это был $DB::x, об этом чуть ниже).
$ perl -MDevel::Peek -e'Dump($DB::single)'
SV = NULL(0x0) at 0x7f882b82dc60
REFCNT = 1
FLAGS = ()
2. С подключенным