RE: To-Experts: BIG problem: my variables in nested subroutin

[Kees Vonk 7249 24549]

> QUESTION: But how should I transform the script, if the
> anonymous subs call each other?


Very simple little example:


#!/usr/bin/perl -w

use strict;

my $i = 0;

my $a;

my $b = sub { print "$i\n"; exit if $i++ >= 10; &$a };

$a = sub { print "$i\n"; exit if $i++ >= 10; &$b };

&$a;



Does that answer your question, or is there a reason you 
cannot do this?


Kees