请教perl包的调用，包名可以使用通配符吗，若批量调用，如何使用？

hwcomcn

use crs3_2014_pm::proj_001;
use crs3_2014_pm::proj_002;
use crs3_2014_pm::proj_003;
...
use crs3_2014_pm::proj_142;

我需要调用这些自定义的pm文件
但是又不想一个个列出

我试了各种方法，但是都失败了
比如
for("001".."142")
{
  use crs3_2014_pm::proj_$_;
}
再如：
用eval
for("001".."142")
{
  $aa="use crs3_2014_pm::proj_$_;";
  eval($aa);
}

请教下，如何实现？感激不尽！

inbus

perl -e "@a = ('Data:umper','Encode','FindBin');foreach (@a) {eval 'use '.$_.';print '.$_.'->VERSION.chr(10)'}"

zhlong8

如果你的模块有导入函数的话应该写成 BEGIN { eval "use module1; use module2; " } 否则这些函数只在运行时能看到，编译时会表示找不到对应的函数