왜 다음과 같은 펄 스크립트는 아무 것도 프린트하지 않습니까? 내가 echo 'test' | (while read LINE; do echo \$LINE; done)
을 실행하면 sh
에서Perl이 쉘 명령을 실행하지 않고 엽니 다.
if (open(my $fh, "| (while read LINE; do echo \$LINE; done)")) {
print $fh "test";
close($fh);
}
, 나는 test
를 인쇄 할 수있을 것으로 예상한다. "\ n"인쇄에, read
이후
추가처럼, 전체 라인을 찾고있다 '; –
감사합니다. 답으로 게시하면 받아 들일 것입니다. – simonzack
사이드 노트,'open my $ fh, "| -", ".."'perl은 세개의 args를'open'으로 선호합니다. –