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 ?

Reference:

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]

All is well

In reply to print package's symble table by vinoth.ree

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.