Perl：停止在Windows中使用Perl“系统”启动的命令

Question

在Perl中，我在两个不同的Windows命令行（Cmd）中启动了两个命令，如下所示：

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

基本上，这两个命令都会继续运行，直到我使用“ CTRL + C”将其停止为止。

我的问题是：

如何发送“ CTR + C”到每条Cmd行（或命令）？

谢谢。

Answer 1

我想你可以用

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);

Answer 2

我通过创建两个分离的流程解决了该问题。 请参见下面的代码：

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);

`