Re: Load all modules in directory

As others have, suggested, require is the answer. However, in order to get the full functionality of use, you should call import on the package you just required.

BEGIN {
   @mods = glob("/home/cuberat/mods/*");
   for (@mods) { require $_;  $_->import; }
}
[download]

Also, I'm not sure if this is intentional, but globbing those files leaves the .pm on, which may not be what you want. Try adding

s{.pm}{};
[download]

to your for loop before the require.

Are you sure it was a book? Are you sure it wasn't.....nothing?

Comment on Re: Load all modules in directory Select or Download Code

Replies are listed 'Best First'.
Re: Re: Load all modules in directory by mcogan1966 (Monk) on Dec 10, 2003 at 20:24 UTC
Also, I'm not sure if this is intentional, but globbing those files leaves the .pm on, which may not be what you want. Yes yes yes yes yes yes. Always verify that the data you are trying to use is of the correct format. I would recommend doing a print to <STDOUT> the elements of @mods to see if you are acutally getting what you need, and not getting something that is causing your code to choke.	[reply]
Re: Re: Load all modules in directory by ttcuberat (Sexton) on Dec 10, 2003 at 20:33 UTC
Hmm...I tried the above without success. It looks like the problem is that the functions in the Module are not being pulled into the current package . The require and import proceed without failure, but as soon as the function is called, I get `Undefined subroutine &main::webcast_header called at multi_reporter.pl + line 133` [download] . Here is the current non-working thing that I'm trying: `BEGIN { $mod_path="/home/tboyd/lib/site_perl/5.6.1/Tools/"; unshift @INC, $mod_path; my @mods = glob("$mod_path/"); for (@mods) { s/.\/(\w+\.pm)$/$1/gi; require $_; $_->import; } }` [download] The module that is being called works just fine under a "use" directive. Why might the import not be working? -C P.S. removing the .pm will make this thing barf on the "require".	[reply] [d/l] [select]
Re: Re: Re: Load all modules in directory by ysth (Canon) on Dec 11, 2003 at 05:13 UTC
The require needs a file name and the import needs a package name. So you need to figure out how to require "/home/tboyd/lib/site_perl/5.6.1/Tools/ModuleA.pm" but import "Tools::ModuleA". You might want to see the thread about import.pm on perl5-porters for ideas about doing this or reasons not to.	[reply]


XP is just a number
	PerlMonks