Getting Module Names Dynamically and using it

vishi83 has asked for the wisdom of the Perl Monks concerning the following question:

Hi Wise monks !!

I hav a problem in using Modules dynamically.. I have written a script which will fetch all the module names (*.pm) from a particular directory and its sub-dirs .
Now I hav all these names in an array and i need to call a method table_name defined in those modules.

 
Heres the pseudo-code form of my script .. 

step 1 : Getting all .pm filenames from a directory that satisfies a p
+articular condition. ( in an array )

step 2 : Traverse through the array of filenames and use the module dy
+namically
[download]

Something lik this ;

This is jus a snippet of my script;

my @tables;
foreach my $modulenames ( @avail )  {
my $object = "Project::$modulenames";
use $object;
my $objvalue = $object->table_name();
push (@tables, $objvalue);
}
print "@tables";
[download]

The Problem i hav now is I can't use my modules dynamically something like use $object ;

Thanks in advance !!!

Vishi83

A perl Script without 'strict' is like a House without Roof; Both are not Safe;

Comment on Getting Module Names Dynamically and using it Select or Download Code

Replies are listed 'Best First'.
Re: Getting Module Names Dynamically and using it by broquaint (Abbot) on Dec 07, 2005 at 10:36 UTC
If you already have the filenames then just use them in conjunction with `require` e.g `require $_ for @modules;` [download] Then you can execute the class methods like so: `my @tables = map $_->table_name, @module_names;` [download] HTH `_________ broquaint`	[reply] [d/l] [select]
Re^2: Getting Module Names Dynamically and using it by xdg (Monsignor) on Dec 07, 2005 at 11:17 UTC
I don't think the latter part of that will work -- the OP said that the list is of filenames, e.g. "lib/Foo/Bar/Baz.pm", not package names, e.g. "Foo::Bar::Baz". And if the list were of package names, they would need to be converted to filenames to be used with `require` in the way you suggest, or instead be called in an eval: `# if @modules contains package names, not filenames eval "require $_" for @modules;` [download] The OP might want to look at Module::Require or UNIVERSAL::Require and see if either would be applicable/helpful for this situation. -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l] [select]
Re: Getting Module Names Dynamically and using it by sh1tn (Priest) on Dec 07, 2005 at 10:37 UTC
You can load modules, but because it is run-time and not compile time you should use `require`. You may want to read What's-the-difference-between-require-and-use.	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.