activeperl可以使用expect.pm嘛？

andy820303

手头有2个功能类似的perl脚本，一个运行在windows上，一个运行在solaris上。

Solaris行的脚本需要用到expect.pm,但是在windows上，并不需要expect.pm

今天应要求将两个脚本合并成一个，发现点问题。貌似activeperl上并没有expect.pm这个模块，而且通过PPM安装的是“Bundle-Expect.pm".所以use expect无法通过。

即使将use expect放入系统类型判断中，也还是提示找不到expect.pm

if($os eq "MSWin32"){  
  
}
elsif($os eq "solaris"){
use Expect;
}

Perl中有没有define之类的宏呢？

hp_truth

回复 1# andy820303


可以试一下用eval { require Expect　};　再用$@进行判断

DQP

改用require.
不管放在哪use 都会在编译时段被执行

andy820303

谢谢2位

用require就可以解决问题了。不在编译阶段，而且运行阶段处理这个包就可以了。

再次感谢