我知道在命令提示符下使用CPAN安装“强制”模块很容易.我试图通过脚本实现相同的目标：
use CPAN;
eval "use Filesys::DiskSpace" or do {
CPAN::install("Filesys::DiskSpace");
};
有没有办法在代码中添加’force’选项？
编译模块时出现以下错误：
make test had returned bad status,won't install without force
警告可能不严重,所以我想继续安装.
谢谢.
解决方法
只要你真的知道你在做什么：
eval "use Filesys::DiskSpace; 1" or do {
CPAN::Shell->force("install","Filesys::DiskSpace");
};
即使成功使用内置函数也不返回任何有用的东西,因此必须在字符串eval中包含“; 1”.