Re: Global vs. local?

 switch ($j) {
[download]

Whoa! Don't.

This code suggests to me that you're using Switch, which is known to introduce random and weird errors into your scripts. The first step is to remove everything related to Switch.

After you've exorcised all usage of Switch from your script, your usage should basically work. Potentially, you need to declare another variable and store the index in it rather than the loop variable:

foreach my $j (0..$i-1) {
    my $idx = $j; # make a copy
    my $SUB = "${idx}Textfield_MaxText";
    *$SUB = sub { variableMaxText( $idx );
};
[download]

Comment on Re: Global vs. local? Select or Download Code

Replies are listed 'Best First'.
Re^2: Global vs. local? by moritz (Cardinal) on May 28, 2009 at 09:32 UTC
Whoa! Don't. If you tell people what not to use, also tell them what to use instead ;-) here: perl 5.10 introduces given/when, see perl5100delta. Short example: `use 5.010; given ($value) { when (1) { ... } when (2) { ... } default { die "Don't know what to do with '$_'" } }` [download] It's not needed here, because a closure is much better, but in general it's surely good to know.	[reply] [d/l]
Re^3: Global vs. local? by jpavel (Sexton) on May 28, 2009 at 09:40 UTC
Thanks, I'll make that change!	[reply]
Re^2: Global vs. local? by jpavel (Sexton) on May 28, 2009 at 09:46 UTC
This did it! Thanks. I'm not entirely sure why this was necessary, when the first snippet worked taking $x from the for loop? I guess there is something about variable reference that I don't understand going on.	[reply]
Re^3: Global vs. local? by ig (Vicar) on May 28, 2009 at 10:55 UTC
I have no explanation for the failure. I tried to replicate your behavior with 5.8.8 and 5.10.0 but my tests worked in every case I tried. My last test program was: `#use strict; use warnings; sub subfunction { foreach my $j (0..5) { my $SUB = 'testsub'.$j; *$SUB = sub { display($j); }; } } sub display { my $x = shift; print "\$x = $x\n"; } subfunction(); &testsub0(); &testsub1(); &testsub2(); &testsub3(); &testsub4(); &testsub5(); __END__ $x = 0 $x = 1 $x = 2 $x = 3 $x = 4 $x = 5` [download] Can you post a minimal running test script that demonstrates the ~~bug~~ unexpected behavior? What version of perl and what platform?	[reply] [d/l]
Re^4: Global vs. local? by jpavel (Sexton) on May 28, 2009 at 12:02 UTC
ActiveState perl 5.10.0 (Binary build 1004 287188) Read more... Code and output are below (6 kB)	[reply] [d/l] [select]
Re^5: Global vs. local? by Corion (Patriarch) on May 28, 2009 at 12:10 UTC
Re^5: Global vs. local? by ig (Vicar) on May 28, 2009 at 12:35 UTC


We don't bite newbies here... much
	PerlMonks