如何获取Windows命令行字符串？

Question

我从以下代码制作了一个简单的可执行文件（ string.exe ）。 您无法更改此文件。

$| = 1;
foreach my $i (1..10) {
    print "test : $i\r";
    sleep 2;
}

我想实时获取该程序的输出。 我尝试使用以下代码进行操作：

open(my $fh, '-|', 'string.exe') or die $!;
while (my $line = <$fh>) {
    print $line;
}

但是我无法实时获得输出。 我认为，这是由于使用了回车符（ \\r ）。

Answer 1

readline （ <> ）读取直到遇到换行符，但发送回车键代替。 readline在某种程度上是可配置的（通过$/ ），但是直到您可以指示它读取直到返回CR或LF为止。

数据可用后，立即返回sysread ，otoh。 这正是您想要的。

$| = 1;
while (sysread($fh, my $buf, 64*1024)) {
    print $buf;
}

Answer 2

您可以将$INPUT_RECORD_SEPARATOR设置为\\r ：

local $/ = "\r";
while (my $line = <$fh>) {

Answer 3

如何获取Windows命令行字符串？

如果我了解您的问题，您可以使用类似

local $cmd = join " ", $0, @ARGV;
print $cmd;

Answer 4

测试choroba关于$INPUT_RECORD_SEPARATOR的答案：

use strict;
use warnings;

# As described in http://perldoc.perl.org/perlipc.html#Safe-Pipe-Opens
my $pid = open(KID_TO_READ, "-|") // die "can't fork: $!";

# Parent
if ($pid) {
    local $/ = "\r";
    while (<KID_TO_READ>) {
        use Data::Dump;
        dd $_;
    }
    close(KID_TO_READ) or warn "kid exited $?";

# Child
} else {
    local $| = 1;
    foreach my $i (1..10) {
        print "test : $i\r";
        sleep 2;
    }
    exit;
}

输出：

"test : 1\r"
"test : 2\r"
"test : 3\r"
"test : 4\r"
"test : 5\r"
"test : 6\r"
"test : 7\r"
"test : 8\r"
"test : 9\r"
"test : 10\r"

具有讽刺意味的是，此测试无法在Windows上运行：

'-' is not recognized as an internal or external command,
operable program or batch file.
kid exited 256 at test_RS.pl line 14.

但是，这仍然确认$RS将按文档所述工作。