Re^2: look up the symbol table of a variable

When I try:

use strict;
use Foo::Bar;
my $package = 'Foo::Bar';
for my $sym ( keys %{ $::{ "${package}::" } } ) {
  print "$sym\n";
}
[download]

...I get no output, but with this I do:

use strict;
use Foo::Bar;
my $package = 'Foo::Bar';
{
  no strict q(refs);
  for my $sym ( keys %{ "${package}::" } ) {
    print "$sym\n";
  }
}
__END__
PI
import
[download]

For both, Foo/Bar.pm is

package Foo::Bar;
$PI = 3.14;
__END__
[download]

Update: Simplified code a bit.

the lowliest monk

Comment on Re^2: look up the symbol table of a variable Select or Download Code

Replies are listed 'Best First'.
Re^3: look up the symbol table of a variable by chas (Priest) on Apr 24, 2005 at 23:22 UTC
Yes, I think you are correct. (See the 2nd update in my previous reply.) chas	[reply]