Re: Re: Re: Load all modules in directory

[hanenkamp]

The code given has syntax errors in it, but setting those aside: It-Works-For-Me(tm). Here it is with typos removed:

BEGIN { 
        my $mod_path = "/home/tboyd/lib/site_perl/5.6.1/Tools/";
        my @mods = glob("$mod_path*");
        for (@mods) {
                require $_;
        }
}

It should be noted that require is different from use in that use calls the module's import method and require does not. So, this could cause problems later on if you expect symbols to be imported (or these modules do something else nice for you in import).

You may also want to change your glob to end in *.pm if you only want those files as there could be other files in the directory that aren't perlish.

[CombatSquirrel]

For me, your code results in

Can't locate C:/Perl/site/lib/ACME in @INC (@INC contains: C:/Perl/lib
+ C:/Perl/site/lib .) at C:\Dokumente und Einstellungen\foo\Desktop\t.
+pl line 10.

BEGIN failed--compilation aborted at C:\Dokumente und Einstellungen\fo
+o\Desktop\t.pl line 12.

I just tried to use eval to trap some nasty error messages and I got away with it -- I highly doubt whether this is legal, though:

#!perl

use strict;
use warnings;

BEGIN {
   my $dir = "C:/Perl/site/lib/";
   my $r;
   for (<$dir*.pm>) {
      /([^\/]+)$/ && ($r = $1) or next;
      eval { rquire $_ } unless ($r and $INC{$r});
   }
}

use Data::Dumper;

print Dumper \%INC;


Anyway, I hope this helped the OP.
CombatSquirrel.

---

Entropy is the tendency of everything going to hell.

[hanenkamp]

The error you point out is part of the reason I suggested changing * to *.pm. Directories won't load very happily. Although, in this case we could add this instead of the *.pm:

require $_ unless -d $_;

But, with this solution, we'd still run into problems if there are other odd files like READMEs or something else that got stuck in the directory we are scanning.