Perl에서 시스템 명령어 출력을위한 파일 핸들

Question

Perl에서 실행하는 시스템 명령어의 출력을위한 파일 핸들/핸들이 있습니까?

Answer 1

예,이 같은 파이프를 사용할 수 있습니다

open(my $pipe, "ls|") or die "Cannot open process: $!"; 
while (<$pipe>) { 
    print; 
} 

파이프 동작에 대한 자세한 설명은 perlipc을 자세한 내용은 open의 문서를 참조하십시오.

Answer 2

여기 open의 3 인자의 양식을 사용하여, 스크립트 및 기타 명령 사이에 파이프를 설정의 예 :

open(my $incoming_pipe, '-|', 'ls -l')    or die $!; 
open(my $outgoing_pipe, '|-', "grep -v '[02468]'") or die $!; 

my @listing = <$incoming_pipe>;   # Lines from output of ls -l 
print $outgoing_pipe "$_\n" for 1 .. 50; # 1 3 5 7 9 11 ...