Perl打开没有运行shell命令

Question

为什么以下perl脚本不能打印任何内容？

if (open(my $fh, "| (while read LINE; do echo \$LINE; done )")) {
    print $fh "test";
    close($fh);
}

在sh中，如果我运行echo 'test' | (while read LINE; do echo \$LINE; done )，我希望打印出test。

Answer 1

添加＆＃34; \ n＆＃34;到你的打印，因为read正在寻找整行，就像这样

print $fh "test\n";