windows – 使用Perl轮询进程退出

我正在使用Perl自动执行一些安装过程.现在我想知道我解雇的安装程序何时完成.我该怎么做呢？由于这是自动化工作,我不能要求人们在以后的某个时间发出一些命令.此功能应该是自动的.我如何在 Windows上执行此操作？

解决方法

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站长网）