[Moscow.pm] Фокусы с постфиксным if

[Yuri Pac]

2009/4/14 Orlovsky Alexander <nordicdyno на yandex.ru>:
> Вот как этот код интерпертируется парзером perl. (моим: v5.8.8 built for i386-linux-thread-multi)
>
> # perl -MO=Deparse
>
> use strict;
> use warnings;
> use Data::Dumper;
>
> for(1..10) {
> my $t = 'abcd' if 0;
> print Dumper $t;
> $t = 'def';
> }
>
> #---------------------------------------
>
> ^D
> use Data::Dumper;
> use warnings;
> use strict 'refs';
> foreach $_ (1 .. 10) {
>    '???';
>    print Dumper($t);
>    $t = 'def';
> }
> - syntax OK
>
> Почему то "use strict;" превратилось в "use strict 'refs';"
>
> Искусственный интеллект? =)
>
Гораздо инетерсней вопросики, типа чозанах :)
-- 
WBR, Yuri Pac