Perlを使用してプロセスを終了するためのポーリング

Question

Perlを使用していくつかのインストール手順を自動化しています。今、私が発射したインストール手順が完了したときを知りたい。これはどうすればいいですか？これは自動化された作業なので、後でにいくつかのコマンドを実行するよう人々に依頼することはできません。この機能は自動的に行う必要があります。どのように私はWindows上でこれを行うのですか？

Answer 1

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に渡すことができます。

Answer 2

Windowsでは、プロセスのハンドルを使用して、WaitForSingleObject()と呼び出して、プロセスがいつ終了するかを調べます。プロセスIDだけがある場合は、OpenProcess()を使用してプロセスIDを取得できます。 （もちろん、CreateProcess()でプロセスを作成した場合は、すでにハンドルがあります）。