我正在编写一个模仿 gcc 的 perl 脚本。这是我的脚本需要处理来自 gcc 的一些标准输出。处理部分已经完成，但我无法让简单的部分工作：如何将所有命令行参数按原样转发到下一个进程（在我的情况下为 gcc）。发送到 gcc 的命令行往往很长，并且可能包含大量转义序列，我现在不想玩转义的游戏，而且我知道在复杂情况下在 Windows 上正确使用它很棘手。
基本上，
gcc.pl 一些 crazies\ t\\ "command line\"" 并且 gcc.pl 必须将相同的命令行转发到真正的 gcc.exe（我使用 windows）。
我这样做：open("gcc.exe $cmdline 2>&1 |") 以便将来自 gcc 的 stderr 馈送到 stdout，我的 perl 脚本处理 stdout。问题是我在任何地方都找不到如何构造$cmdline。
【问题讨论】：
标签： perl command-line command-line-arguments
【讨论】：
我会使用AnyEvent::Subprocess:
use AnyEvent::Subprocess;
my $process_line = sub { say "got line: $_[0]" };
my $gcc = AnyEvent::Subprocess->new(
code => ['gcc.exe', @ARGV],
delegates => [ 'CompletionCondvar', 'StandardHandles', {
MonitorHandle => {
handle => 'stdout',
callback => $process_line,
}}, {
MonitorHandle => {
handle => 'stderr',
callback => $process_line,
}},
],
);
my $running = $gcc->run;
my $done = $running->recv;
$done->is_success or die "OH NOES";
say "it worked";
MonitorHandle 委托的工作方式类似于重定向，但您可以选择为每个标准输出和标准错误使用单独的过滤器。 “code”arg 是一个 arrayref，表示要运行的命令。
【讨论】：
感谢您的回答，我得出结论，我犯了一个大错误，我再次接触了 perl：浪费了数小时的时间来发现它无法正确完成。
Perl 使用与使用 MS stdlib（在 win32 上是标准的）的所有其他应用程序不同的方式来拆分命令行参数。
由于某些命令行参数本应被解释为一个单一的命令行参数，因此 perl 可以将其解释为多个参数。这意味着我要做的所有事情都是浪费时间，因为 perl 中的错误行为。如果我 1) 无法按原样访问原始命令行并且 2) perl 没有正确拆分命令行参数，则无法正确完成此任务。
作为一个简单的测试：
script.pl """test |test"
在 win32 上会错误地将命令行解释为：
ARGV=['"test', '|test']
然而，Windows 上的正确“答案”必须是
ARGV=['"test |test']
我使用了 activestate perl，我还尝试了最新版本的草莓 perl：两者都很糟糕。似乎 msys 附带的 perl 可以正常工作，很可能是因为它是针对 mingw 而不是 cygwin 运行时构建的？..
perl 的问题和原因在于它有错误的 cmd 行解析器，并且无论 cygwin 支持与否，它都无法在 Windows 上工作。 我有一个简单的情况，环境变量（我无法控制）扩展到
perl gcc.pl -c "-IC:\ffmpeg\lib_avutil\" rest of args
Perl 发现我只有两个 args：-c 和 '-IC:\ffmpeg\lib_avutil" rest of args' 而任何符合要求的 Windows 实现都会接收第二个 cmd 行 arg 为：'-IC:\ffmpeg\lib_avutil\'，这意味着对于我的简单案例来说 perl 是一大堆垃圾，因为它没有提供足够的方法来访问 cmd 行论据。我最好使用 boost::regex 并直接在 c++ 中进行所有解析，至少我不会犯像 ne 和 != 这样的愚蠢错误来比较字符串等。Windows 的命令行参数转义规则很奇怪，但它们在 Windows 上是标准的，而 perl 出于某种奇怪的原因不想遵循操作系统的规则。
【讨论】：
cmd.exe 的缺点归咎于 perl。命令 shell 拆分参数，而不是 perl。如果你将@ARGV 直接插入到另一个命令中（也就是说，运行 another 传递的 shell 参数解析），你会得到不同的结果。
"Safe Pipe Opens" 在 perlipc 文档中描述了如何获取另一个命令的输出，而不必担心 shell 将如何解析它。该技术通常用于安全处理不受信任的输入，但它也可以避免您正确转义所有参数的容易出错的任务。
因为它避开了外壳，所以您需要自己创建2>&1 的效果，但正如您将在下面看到的那样，这很简单。
#! /usr/bin/perl
use warnings;
use strict;
my $pid = open my $fromgcc, "-|";
die "$0: fork: $!" unless defined $pid;
if ($pid) {
while (<$fromgcc>) {
print "got: $_";
}
}
else {
# 2>&1
open STDERR, ">&STDOUT" or warn "$0: dup STDERR: $!";
no warnings "exec"; # so we can write our own message
exec "gcc", @ARGV or die "$0: exec: $!";
}
Windows 正常 does not support open FH, "-|"，但 Cygwin 很高兴：
$ ./gcc.pl foo.c 得到：gcc：foo.c：没有这样的文件或目录 得到：gcc：没有输入文件
【讨论】：