Variable scope in ternary ?: operator not propagating?

JayBonci has asked for the wisdom of the Perl Monks concerning the following question:

I understand what's wrong here, I think, but I don't really know /why/. Simply:

my $foo= (my $bar = localtime)?("$bar hello"):("FAILED!");
[download]

Assuming you had some kind of code that you were checking for existance before formatting on one line, you get this:

Global symbol "$bar" requires explicit package name at ./scope.pl line
+ (whatever)
[download]

Why doesn't $bar propagate down to it's child conditions? This is bewildering because this works as expected:

print do { if(my $bar = localtime){ "$bar hello"}else{ "FAILED!" } };
[download]

I realize that the above construct probably isn't the internal representation of the ternary operator, but it is the logical expansion. If anyone has any additional info on what the perl internal structure on this is, I'd be happy to find out. Thanks

--jaybonci

Comment on Variable scope in ternary ?: operator not propagating? Select or Download Code

Replies are listed 'Best First'.
Re: Variable scope in ternary ?: operator not propagating? by Abigail-II (Bishop) on Mar 11, 2003 at 21:03 UTC
Because a variable only gets into scope AFTER the statement it's defined. That allows one to write: `my $var = $var; # Start with the $var from the enclosing scope. local $_ = $_;` [download] So, in your example `$bar` comes into existance in the statement after the `?:`. Abigail	[reply] [d/l] [select]
Re: Variable scope in ternary ?: operator not propagating? by Zaxo (Archbishop) on Mar 11, 2003 at 21:03 UTC
A my declaration does not take effect until the end of a statement - a semicolon or end of block (which won't do you much good, since the var will go out of scope immediately). You'll need to split that into two statements: `my $bar = localtime; my $foo= ($bar)?("$bar hello"):("FAILED!");` [download] After Compline, Zaxo	[reply] [d/l]
Re: Variable scope in ternary ?: operator not propagating? by TimToady (Parson) on Mar 12, 2003 at 16:18 UTC
In Perl 6 it will work as you expect, because the rule has been changed to introduce lexicals as soon as the name is seen, rather than waiting for the end of the current statement.	[reply]
Re: Re: Variable scope in ternary ?: operator not propagating? by theorbtwo (Prior) on Mar 15, 2003 at 04:28 UTC
Then how do you achieve the current effect of `my $x=42; print "\$x before block: $x\n"; { my $x=$x; $x++; print "\$x inside block: $x\n"; } print "\$x after block: $x\n";` [download] ? (Should give 42, 43, 42.) (Update: added missing $x++;, thanks, BrowserUk.) Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).	[reply] [d/l]
Re^3: Variable scope in ternary ?: operator not propagating? by Aristotle (Chancellor) on Mar 16, 2003 at 00:04 UTC
I suspect it will be by way of one of the new pseudopackages - as an educated guess, since all blocks are really closures in Perl 6, I'd say `CALLER::`. So `my $x = $CALLER::x;` will probably do that. Or I may be entirely wrong. `:-)` Makeshifts last the longest.	[reply] [d/l]
Re: Variable scope in ternary ?: operator not propagating? (do) by tye (Sage) on Mar 11, 2003 at 23:40 UTC
If you never use $bar again, then I might do: `my $foo= do { my $bar= localtime; $bar ? "$bar hello" : "FAILED!"; };` [download] - tye	[reply] [d/l]
Re: Variable scope in ternary ?: operator not propagating? by clairudjinn (Beadle) on Mar 11, 2003 at 23:00 UTC
`$foo = localtime() . " hello" \|\| "FAILED!";` [download]	[reply] [d/l]