[Moscow.pm] Defined or не работает

[Nikolay Mishin]

лопухнулся (проверочное лопух;)))

05.01.2012, 18:06, "Nikolay Mishin" <mi на ya.ru>:
> Да, я опять лапухнулся, use Modern::Perl; (дает  и warnings!)
> спасибо!, все работает
>
> use Modern::Perl;
> my $t;
> my $c='plus';
> my $d='minus';
> $t //= 'test';
> $c =$c // 'test';
> $d //= 'test';
>
> main($t);
> main($c);
> main($d);
>
> sub main{
> say 'Hi '.$_[0];
> }
>
> sub test{
> ..
> }
>
> my $test=1;
> say $c when $test>0;
>
> 05.01.2012, 15:42, "Jack of Shadows" <somerandomlogin на gmail.com>:
>
>>  Угу, а вот если сделать use warnings, то оно сразу бы сказало, что
>>  "variable redefined", и не пришлось бы писать в группу :-Р
>>
>>  On Thu, Jan 5, 2012 at 1:23 PM, Andrew Shitov <andy на shitov.ru> wrote:
>>>   Потому что my.
>>>
>>>   2012/1/5 Nikolay Mishin <mi на ya.ru>:
>>>>   Hi Moscow-pm,
>>>>
>>>>   почему в 3-м варианте происходит присвоение переменной $d значения 'test',
>>>>   ведь она же defined? , а утверждается, что
>>>>   $d //= 'test';  есть краткая запись от
>>>>   $d = $d // 'test';
>>>>
>>>>   use 5.010;
>>>>   my $t;
>>>>   my $c='plus';
>>>>   my $d='minus';
>>>>   my $t //= 'test';      #1
>>>>   my $c =$c // 'test';#2
>>>>   my $d //= 'test';     #3
>>>>
>>>>   main($t);
>>>>   main($c);
>>>>   main($d);
>>>>
>>>>   sub main{
>>>>   say 'Hi '.$_[0];
>>>>   }
>>>>
>>>>   sub test{
>>>>   ..
>>>>   }
>>>>
>>>>   --
>>>>   Nikolay Mishin
>>>>   --
>>>>   Moscow.pm mailing list
>>>>   moscow-pm на pm.org | http://moscow.pm.org
>>>   --
>>>   Andrew Shitov
>>>   ______________________________________________________________________
>>>   andy на shitov.ru | http://shitov.ru
>>>   --
>>>   Moscow.pm mailing list
>>>   moscow-pm на pm.org | http://moscow.pm.org
>>  --
>>  Moscow.pm mailing list
>>  moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Nikolay Mishin
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin