David Le Blanc wrote:
>
> -------------- SAMPLE -------------------
> sub jack
> {
> my $v;
>
> sub jill
> {
> my $j = shift;
> print "jill: v = $v".$/;
> print "jill: j = $j".$/;
> print "jill:total = ".($v+$j).$/;
> }
>
> $v = shift;
> print "jack:v is now $v".$/;
> }
>
> jill 3;
> jack 2;
> jill 3;
> jack 5;
> jill 3;
> ---------------- OUTPUT -----------------
> [snip]
> -----------------------------------------
>
> Its an example of closure, and tends to make my brain hurt,
> so don't nest unless you mean it :-)
Close, but not quite a closure.
perldoc -q closure
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
