windows – 使用Perl轮询进程退出
发布时间:2021-02-03 17:06 所属栏目:52 来源:网络整理
导读:我正在使用Perl自动执行一些安装过程.现在我想知道我解雇的安装程序何时完成.我该怎么做呢?由于这是自动化工作,我不能要求人们在以后的某个时间发出一些命令.此功能应该是自动的.我如何在 Windows上执行此操作? 解决方法 Greg Hewgill的答案解决了您需要的
我正在使用Perl自动执行一些安装过程.现在我想知道我解雇的安装程序何时完成.我该怎么做呢?由于这是自动化工作,我不能要求人们在以后的某个时间发出一些命令.此功能应该是自动的.我如何在 Windows上执行此操作? 解决方法Greg Hewgill的答案解决了您需要的基础Windows API函数,但没有解决如何在Perl中使用它们的问题.您可以使用 Win32::Process模块:use strict; use warnings; use Win32::Process; Win32::Process::Create( my $process,'C:\WINDOWS\system32\notepad.exe',# path of executable "notepad",# command line it sees 0,# don't inherit our handles NORMAL_PRIORITY_CLASS,# process creation flags "." # current directory for process ) or die $^E; print "started\n"; $process->Wait(INFINITE); print "done\n"; $process->GetExitCode(my $exitcode) or die $^E; print "process exit code $exitcode\n"; 如果您需要一次等待多个对象,也可以将$process传递给Win32::IPC函数wait_any和wait_all. (编辑:ASP站长网) |
相关内容
网友评论
推荐文章
热点阅读