Я видел этот бит кода в ответе на другое сообщение: Почему я должен использовать анонимные подпрограммы Perl вместо имени?, но не мог понять точно, что происходит, поэтому я хотел запустить его сам.
sub outer
{
my $a = 123;
sub inner
{
print $a, "\n"; #line 15 (for your reference, all other comments are the OP's)
}
# At this point, $a is 123, so this call should always print 123, right?
inner();
$a = 456;
}
outer(); # prints 123
outer(); # prints 456! Surprise!
В приведенном выше примере я получил предупреждение: "Переменная $a не останется открытой в строке 15. Очевидно, поэтому результат "неожиданен", но я до сих пор не совсем понимаю, что происходит здесь.
sub outer2
{
my $a = 123;
my $inner = sub
{
print $a, "\n";
};
# At this point, $a is 123, and since the anonymous subrotine
# whose reference is stored in $inner closes over $a in the
# "expected" way...
$inner->();
$a = 456;
}
# ...we see the "expected" results
outer2(); # prints 123
outer2(); # prints 123
В том же духе я не понимаю, что происходит в этом примере. Может кто-нибудь объяснит?
Спасибо заранее.