in reply to Re^4: Indirect variable name
in thread Indirect variable name

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]

Replies are listed 'Best First'.
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]
      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]
        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 ...
        I stumbled across this only six months later, and I can't help wondering: What language is there better suited to trial-and-error manipulations? Certainly, after consulting the camel books for various basics, I learned a huge amount of what I know by experimenting and finding interesting and unexpected failures.
[reply]

In Section Seekers of Perl Wisdom