perl – 在Windows中经过一段时间后终止系统()

概述我正在运行perl脚本中的命令行应用程序(使用system()),有时候不返回,确切地说它抛出异常,需要用户输入才能中止应用程序.此脚本用于使用system()命令自动测试我正在运行的应用程序.因为它是自动化测试的一部分,所以如果发生异常,sytem()命令必须返回并认为测试失败. 我想编写一段运行此应用程序的代码,如果发生异常,则必须继续使用脚本,因为此测试失败了. 一种方法是运行应用程序一段时 我正在运行perl脚本中的命令行应用程序(使用system()),有时候不返回,确切地说它抛出异常,需要用户输入才能中止应用程序.此脚本用于使用system()命令自动测试我正在运行的应用程序.因为它是自动化测试的一部分,所以如果发生异常,sytem()命令必须返回并认为测试失败.

我想编写一段运行此应用程序的代码,如果发生异常,则必须继续使用脚本,因为此测试失败了.

一种方法是运行应用程序一段时间,如果系统调用没有在那段时间内返回,我们应该终止system()并继续脚本.
(How can I terminate a system command with alarm in Perl?)

实现此目的的代码：

my @output;eval {    local $SIG{ALRM} = sub { dIE "Timeout\n" };    alarm 60;    return = system("testapp.exe");    alarm 0;};if ($@) {    print "Test Failed";} else {    #compare the returned value with expected}

但是这段代码在windows上不起作用我对此做了一些研究,发现SIG不能用于windows(书籍编程Perl).
有人可能会建议我如何在windows中实现这一目标？

解决方法 我建议看一下 Win32::Process模块.它允许您启动一个进程,等待一段可变的时间,甚至在必要时将其终止.根据文档提供的示例,它看起来很容易：

use Win32::Process;use Win32;sub ErrorReport{    print Win32::FormatMessage( Win32::GetLastError() );}Win32::Process::Create($ProcessObj,"C:\path\to\testapp.exe","",norMAL_PRIORITY_CLASS,".")|| dIE ErrorReport();if($ProcessObj->Wait(60000)) # Timeout is in milliseconds{    # Wait succeeded (process completed within the timeout value)}else{    # Timeout expired. $! is set to WAIT_Failed in this case}

您也可以睡眠适当的秒数,并在此模块中使用kill方法.我不确定norMAL_PRIORITY_CLASS创建标志是否是您要使用的标志;这个模块的文档非常糟糕.我看到一些使用DETACHED_PROCESS标志的例子.你将不得不玩这个部分,看看有什么作用.

总结

以上是内存溢出为你收集整理的perl – 在Windows中经过一段时间后终止系统()全部内容，希望文章能够帮你解决perl – 在Windows中经过一段时间后终止系统()所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。