my @a = (); $a[0] = \@a; my $expr = '$a[0]'; my $index; for ($index = 0; $index < 1000; $index ++) { $expr = "\${$expr}[0]"; } print $expr, "\n"; eval "print $expr";
In reply to Guess what is the print out? by pg
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |