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

添加“\ n”来打印，因为read正在寻找一整行，像这样

print $fh "test\n";