我正在用 Perl 开发一个 Nagios 插件(没有 Nagios::Plugin,只是普通的 Perl)。我正在检查的错误情况通常来自插件内部调用的命令输出。但是,创建错误条件会非常不方便,因此我正在寻找一种将测试输出提供给插件的方法,以查看它是否正常工作。
我目前发现的最简单的方法是使用命令行选项来选择性地从文件中读取输入,而不是调用命令。
if($opt_f) {
open(FILE, $opt_f);
@output = <FILE>;
close FILE;
}
else {
@output = `my_command`;
}
还有其他更好的方法吗?