的Perl：停止在窗口

Question

在Perl用perl「系統」的命令開始，我開始在兩個不同的窗口的命令行（CMD）的兩個命令，如下：

system("start $cmd1"); 
system("start $cmd2"); 

基本上，這兩個命令繼續運行，直到我用「CTRL + C」來阻止他們。

我的問題是：

如何 「CTR + C」 發送到每個隊列的內容（或命令）？

謝謝。

Answer 1

我解決它通過創建兩個分離的過程。請參見下面的代碼：`

use Win32::Process; 
use Win32; 

    sub ErrorReport{ 
     print Win32::FormatMessage(Win32::GetLastError()); 
    } 

    Win32::Process::Create($ProcessObj, 
           "C:\\winnt\\system32\\notepad.exe", 
           "notepad temp.txt", 
           0, 
           DETACHED_PROCESS, 
           ".")|| die ErrorReport(); 

    $ProcessObj->Suspend(); 
    $ProcessObj->Resume(); 
    $ProcessObj->Wait(INFINITE); 

`

Answer 2

我認爲你可以使用

my $pid = system(1, $cmd1); 

# One of the following: 
kill(INT => $pid); # Sends Ctrl-C 
kill(TERM => $pid); # Sends Ctrl-Break 
kill(KILL => $pid); # Calls TerminateProcess($handle, 9) 

waitpid($pid, 0);