[Moscow.pm] Странности и неожиданности Perl

[Vladimir V. Perepelitsa]

On Thursday 28 February 2008 22:34, Denis Evdokimov wrote:
> я сдаюсь, абсолютно и бесповоротно.
> я не понимаю, почему так
>
> my @aaa = qw();
> my @bbb;
>
- sub get_aaa {@aaa}
+ sub get_aaa () {@aaa}
>
> print "\nget_aaa + 0 ->";
> print (get_aaa + 0);
>
> print "\nget_aaa+0 ->";
> print (get_aaa+0);
>
> print "\n0+get_aaa ->";
> print (0+get_aaa);
>
> print "\n0 + get_aaa ->";
> print (0 + get_aaa);
>
> print "\npush @bbb, get_aaa ->";
> print (push @bbb, get_aaa);

и все становится как надо.

-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956