加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

如何自动运行大量的perl脚本?

发布时间:2020-12-15 21:44:09 所属栏目:大数据 来源:网络整理
导读:我需要在 Windows上运行超过100个perl脚本(由前员工编写)以进行系统稳定性测试.每个脚本都有几个函数,每个函数都会向我们的后端系统发送一些linux命令,并返回结果.结果写入日志文件(当前每个脚本都有一个日志文件).结果是“成功”,“失败”. 一个接一个地运
我需要在 Windows上运行超过100个perl脚本(由前员工编写)以进行系统稳定性测试.每个脚本都有几个函数,每个函数都会向我们的后端系统发送一些linux命令,并返回结果.结果写入日志文件(当前每个脚本都有一个日志文件).结果是“成功”,“失败”.

一个接一个地运行这些perl脚本正在耗费我的时间.我正在考虑编写一个批处理文件来自动化它,但我必须解析结果文件以生成测试报告.我在网上搜索,似乎有几个测试框架,如Test::Harness,Test::More,Test::Most都是不错的选择.虽然根据我的理解,他们只使用.t文件,我们的脚本是普通的perl脚本(.pl),而不是标准的perl测试脚本(.t脚本).如果使用,例如,Test :: Harness,我应该将所有perl脚本从.pl更改为.t,并将它们放在t文件夹下吗?如何在Test :: Harness中调用我的函数?有人可以建议一种更好的方法来自动化测试过程并生成像Test :: Harness那样的测试报告吗?我想一个例子将非常有用.

解决方法

我们其中一人在这里感到困惑.这些(100)perl脚本不是 unit tests对吗?

如果我是正确的继续阅读.

Test :: *你提到的并不是你真正想要的.

听起来像你只需要一个main.pl或.bat来运行每个test.pl.

所以看来你走的是正确的道路.如果可以在同一目录中进行所有测试,则可以执行类似的操作.

my $tests_directory = "/some/path/test_dir";
opendir my $dh,$tests_directory or die"$!";
my @tests = grep { $_ !~ /^./{1,2}$/ } readdir $dh; 

for my $test (@tests) {
    system('perl',$test);
}

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读