尝试使用库Perl时在库名称中使用变量

Question

I want my library name to change (I have reasons), but when I use a variable in the library path, it can't seem to find it.....Can't locate APOE.pm in @INC

my ($plugin_name) = @ARGV; 
use lib("/usr/share/perl/5.10.1/$plugin_name");
use APOE qw(callAPOE);

Is this not possible?

Edit: $plugin_name = "AIB-TorrentPanel-v2.00"; AND module name is APOE.pm

Answer 1

You could simply write:

use lib "/usr/share/perl/5.10.1/$ARGV[0]";

or, if you need to do something more complicated to set up the directory name than your example code shows:

my $plugin_name;
BEGIN {
    ($plugin_name) = @ARGV;
}
use lib "/usr/share/perl/5.10.1/$plugin_name";

Answer 2

Your my ($plugin_name) = @ARGV; will run at run-time, it is too late for lib . According to the manual of lib , use lib LIST; is almost equals

BEGIN { unshift(@INC, LIST) }

but your $plugin_name would not be available at that time.

However, you could replace your use with a require , like this:

my ($plugin_name) = @ARGV;
require "/usr/share/perl/5.10.1/$plugin_name/APOE.pm";