Hi Monks,

I was doing somthing wrong, pls help me on this.

I was trying to print the symble table of a package of mine.below is my package code

package Vinoth;

use strict;
use warnings;

use Data::Dumper;

our $VERSION=1.0;

sub printSimbleTable{
        my $package = shift;
        print "I am in printSimbleTable of : $package\n";
        print Dumper \%$packge::; #Not working
        print Dumper \%Vinoth::; # Works
        #print Dumper \%{$packge}::; #Not working
        
#       foreach my $varName (sort keys %$package::)
#       {
#               print "$varName\n";
#               local *typeglob =  %{$package}::{$varName};
#               print "$$varName\n" if ($typeglob);
#       }
}

1;
[download]

I tried to use this package in a perl script and calling a function in this module to print the package's symble table. Below is the script file

use strict;
use warnings;

use Vinoth;

&Vinoth::printSimbleTable( 'Vinoth' );
[download]

As you can see this line print Dumper \%$packge::; #Not working the $package hash my module name 'Vinoth', but its not printing the symble table with the Dumper, when I replace it with the my module name explicity, it works. how to use $package variable here and make it work ?

Packages and Symbol Tables

A package's namespace is a symbol table. The name of your package is stored in a hash named after your package with two colons appended to it. If you name a package BushWhack, its symbol table name is %BushWhack::. Packages are represented as %main:: or %:: in the symbol table by default. Since we're dealing with a hash, each key must have a value. Because keys are identifiers, values are the corresponding typeglob values; globs are pretty efficient because they do the symbol table lookups at compile-time. In other words, *BushWhack represents the value of %BushWhack::--see the following:

local *low_flyer = *BushWhack::variable; # compile time
local *low_flyer = *BushWhack::{"variable"}; # run time
[download]

You can look up all the keys and variables of a package with this example. You may use undef() on these to clear their memory, and they will be reported as undefined. You shouldn't undefine anything here unless you don't plan to load these packages again. Because the memory has already been filled, it saves time when you load them if you leave them defined:1

foreach $symbol_name (sort keys %BushWhack::) {
        local *local_sym = $BushWhack::{$symbol_name};
        print "\$$symbol_name is defined\n"
                if($local_sym);
        print "\@$symbol_name is defined\n"
                if(@local_sym);
        print "\%$symbol_name is defined\n"
                if(%sym);
}
[download]