Re^4: Indirect variable name

Using symbolic references for plain variables works as expected. However, I'm stuck on how to reference 'flag' below.

Origional code:

package Util::Stuff::aaa1;
sub flag { 10 }
####

use Util::Stuff;

print Util::Stuff::aaa1->flag; # yields 10
...
our $v = 'Util::Stuff::aaa1';
print $$v->flag;               # yields undef error
...
our $v = 'Util::Stuff::aaa1->flag';
print "$$v\n";                 # yields nothing
[download]

If it wasn't for the need to find a clean way to glue two separate projects together, I wouldn't bother with this. However, it's an interesting issue and I'm keen to learn something different.

Thanks!
Henry

Comment on Re^4: Indirect variable name Download Code

Replies are listed 'Best First'.
Re^5: Indirect variable name by JadeNB (Chaplain) on Nov 20, 2008 at 17:08 UTC
`print Util::Stuff::aaa1->flag; # yields 10 ... our $v = 'Util::Stuff::aaa1'; print $$v->flag; # yields undef error ... our $v = 'Util::Stuff::aaa1->flag'; print "$$v\n"; # yields nothing` [download] The last 2 aren't working because, in the second case, you are trying to call the `flag` method on the variable named `Util::Stuff::aaa1`; and, in the third case, you are referring to the variable named `Util::Stuff::aaa1->flag` (no method call is occurring). What you want to do is to call the `flag` method on the class `Util::Stuff::aaa1` itself—no symbolic references are required. `our $v = 'Util::Stuff::aaa1'; print $v->flag;` [download]	[reply] [d/l] [select]
Re^6: Indirect variable name by FreakyGreenLeaky (Sexton) on Nov 20, 2008 at 17:28 UTC
In other words `$$v->flag` is not being dereferenced and the method called, as I incorrectly assumed. Thanks for all the help.	[reply] [d/l]
Re^7: Indirect variable name by LanX (Saint) on Nov 20, 2008 at 23:25 UTC
I'm confused ... do you really want to do `print Util::Stuff::aaa1->flag();` [download] or rather `print Util::Stuff::aaa1::flag();` [download] in other words, are you importing moduls or classes ? I understood simple moduls... Does flag() need to know, in which package he was called? Cheers LanX UPDATE: you may want to have a look into perlboot if you don't know the difference... perl isn't a language one can master with try and error hacking ...	[reply] [d/l] [select]
Re^8: Indirect variable name by JadeNB (Chaplain) on Apr 25, 2009 at 02:10 UTC
Re^9: Indirect variable name by LanX (Saint) on May 08, 2009 at 11:15 UTC
Some notes below your chosen depth have not been shown here


Perl Monk, Perl Meditation
	PerlMonks