执行一个C ++程序并使用Perl复制cmd输出

Question

我正在尝试编写一个Perl脚本，该脚本将编译C ++程序，然后通过传入所需的值来执行它。 执行之后，我需要在cmd上打印任何内容，以便与示例代码进行比较。

现在，我的代码完美地编译了cpp代码并正确执行了它，但是在不传递值的情况下完成了代码。 我现在要做的就是使用系统命令

system("cl E:\\checker\\Perl\\temp.cpp");
system("temp.exe");
system("10");
system("20");
system("30");
system("40");
system("50");

C ++代码是这样的

cin >> a;
cin >> b;
cin >> c;
cin >> d;
cin >> e;

该代码正确地编译和执行，但是以下值（它们是使用cin的C ++代码的输入）似乎不起作用

请注意，我正在使用Visual Studio编译器。 也有人可以告诉我如何将C ++代码输出的信息提取到perl数组中进行比较。

Answer 1

您可以使用IPC::Open2在您的Perl脚本和其他程序之间建立双向通信，例如

use IPC::Open2;
use autodie;
my ($chld_out, $chld_in);
my $pid = open2(
    $chld_out, 
    $chld_in, 
    q(bc -lq)
);
$chld_in->print("1+1\n");
my $answer = <$chld_out>;
print $answer;
kill 'SIGINT', $pid; # I don't believe waitpid() works on Win32. Possibly with Cygwin.

不幸的是，缓冲会使这种方法变得比人们希望的难得多。 您还必须手动等待并获得子进程。 另一种选择是使用类似IO::Pty或Expect的模块来创建伪tty环境来模拟用户交互（但是我相信这两个仅在Windows的Cygwin环境中有效）。 还有IPC::Run ，它是IPC::Open2/3的功能更全的替代方案。

另请参见： perlipc和perlfaq8 。

---

system的正确语法是

system('command', 'arg1', 'arg2', ... , 'argn');

或全部作为单个字符串，这允许外壳程序解释（您可能不需要）：

system('command arg1 arg2');

system不捕获输出。 而是使用反引号运算符：

my $command_output = `command args`;

或其通用形式qx 。 （如果您分配给一个数组，则输出将在$/上分割，并一次推送到数组中）。

还有open的管道形式（ open my $pipeh, '-|', 'command', 'arg1', ..., 'argn') or die $!; ）和readpipe函数。