한 파일 핸들의 출력을 다른 파일 핸들로 리디렉션 할 수 있습니까?

Question

Perl (Linux에서 실행) 내에서 프로세스의 파이프 라인을 설정하려고합니다. 두 부분은 별도의 시간에 실행됩니다.

예 :

는 소비자 프로세스를 시작

:

open(OUT, "| tar xvf - ") || die "Failed: tar: $!"; 

후 훨씬 나중에 생산 프로세스를 시작합니다

open(IN, "gpg -d $file |") || die "Failed: gpg: $!"; 

을하지만 어떻게 든 타르의 입력에 GPG의 출력을 리디렉션 .

while (<IN>) { 
    print OUT; 
} 

을하지만 어떻게 든 재와 함께 두 개의 프로세스를 접착제 수 있는지 알고 싶습니다 :

나는 루프를 구축 할 수 있습니다.

Answer 1

두 개의 열린 문 전에

pipe(IN, OUT); 

를 추가합니다. 그게 다야!

당신이 더 복잡 아무것도 할 원한다면, 나는 IPC :: 실행 CPAN 모듈 추천 :

http://search.cpan.org/dist/IPC-Run/

그것은 수 있습니다 당신이 프로세스를 시작을 자신의 입력을 묶어 함께 출력 및 로깅을 추가하거나 체인의 어느 지점에서 리다이렉션.

Answer 2

두 프로세스가 완전히 관련이없는 경우 FIFO를 사용하십시오.

use POSIX qw(mkfifo); 
mkfifo($path, 0700) or die "mkfifo $path failed: $!"; 

이렇게하면 $ path에 FIFO가 만들어집니다. 이제 하나의 프로세스가 해당 파일에 쓰고 다른 프로세스는 그 프로세스에서 읽습니다.

Answer 3

나는 Proc::SafeExec을 좋아하는데, 프로세스와 파일 핸들을 거의 임의의 방법으로 쉽게 연결할 수 있습니다. 다음은 예입니다 : 여기 ..., 그것은 훨씬 간단하게 보이는 IPC :: 실행보고 후

use strict; 
use warnings; 

use Proc::SafeExec; 

open(my $ls, "-|", "ls", "-l") or die "Err: $!"; 
open(my $fh, ">", "tmp.txt") or die "Err: $!"; 

my $p = Proc::SafeExec->new({ 
    exec => [qw(sed -e s/a/b/)], 
    stdin => $ls, 
    stdout => $fh, 
}); 
$p->wait(); 

IPC를 사용하여 동일한 예제 : 대신 실행

use IPC::Run qw(run); 

run [qw(ls -l)], "|", [qw(sed -e s/a/b/)], ">", "tmp.txt";