Perl - How to get names of subroutines that found under a name space?

breeze99 · 09-15-2008, 05:04 PM

Hi, please advise ..
I need to get sub names that existed in a defined namespace ..
Just like it can be done in TCL:

Code:

 
puts "Here are all procs: [info procs ::mynamespace::*]"
puts "Here are all vars:  [info vars ::mynamespace::*]"

Case:

Code:

#################################################
use myPack_01;
  foreach $sub (&Some_how_get_subs_names_from(::myPack_01)) {
    print "Executing $sub ..\n";
    &{myPack_01::$sub};
  };
#################################################
package MyPack_01;
my $var1;
sub abcd {};
sub dddd {};
1;
#################################################

And/Or test its existance ..
if (exists ::myPack_01::abcd) {print "Ok\n"};

Thanks a lot ..

haytona · 09-15-2008, 05:46 PM

Try this:

Code:

perl -e 'use Data::Dumper; print join(", ", grep {defined &{"Data::Dumper::$_"}} sort keys %{"Data::Dumper::"}), "\n"'

Just replace Data:;Dumper with your own module.

(lifted from here: http://gwolf.org/blog/show/Introspection-in-Perl)

breeze99 · 09-16-2008, 01:41 PM

Quote:

Originally Posted by haytona

Try this:

Code:

perl -e 'use Data::Dumper; print join(", ", grep {defined &{"Data::Dumper::$_"}} sort keys %{"Data::Dumper::"}), "\n"'

Just replace Data:;Dumper with your own module.

(lifted from here: http://gwolf.org/blog/show/Introspection-in-Perl)

Great .. thanks.