λΣΤΑΤΙ, οξ ε³ ξε χιδιτ<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>my $test = 10;<br>warn 'main: ', \$test;<br><br>my $func1 = sub {<br> warn 'func1: ', \$test;<br> sub func2 {<br> warn 'func2: ', \$test;<br>
$test = 5000;<br> }<br>};<br>$func1->();<br>func2();<br>func2();<br>func2();<br>func2();<br>func2();<br>func2();<br>warn $test;<br><br><br>main: SCALAR(0x182f478) at 1.pl line 7.<br>func1: SCALAR(0x182f478) at 1.pl line 10.<br>
func2: SCALAR(0x182f3d0) at 1.pl line 12.<br>func2: SCALAR(0x1854628) at 1.pl line 12.<br>func2: SCALAR(0x182f3d0) at 1.pl line 12.<br>func2: SCALAR(0x1854628) at 1.pl line 12.<br>func2: SCALAR(0x182f3d0) at 1.pl line 12.<br>
func2: SCALAR(0x1854628) at 1.pl line 12.<br>10 at 1.pl line 23.<br><br>