Perl-pipe

Perlパイプ関数

説明

この関数は、接続された通信パイプのペアを開きます。読み取り用のREADHANDLEと書き込み用のWRITEHANDLEです。 あなたは$ |を設定する必要があるかもしれません各コマンドの後にWRITEHANDLEをフラッシュします。

構文

以下は、この関数の簡単な構文です-

pipe READHANDLE, WRITEHANDLE

戻り値

この関数は、失敗すると0を返し、成功すると1を返します。

例

以下は、その基本的な使用法を示すコード例です-

#!/usr/bin/perl -w

use IO::Handle;

pipe(PARENTREAD, PARENTWRITE);
pipe(CHILDREAD, CHILDWRITE);

PARENTWRITE->autoflush(1);
CHILDWRITE->autoflush(1);

if ($child = fork) { # Parent code
   close CHILDREAD; # We don't need these in the parent
   close PARENTWRITE;
   print CHILDWRITE "34+56;\n";
   chomp($result = <PARENTREAD>);
   print "Got a value of $result from child\n";
   close PARENTREAD;
   close CHILDWRITE;
   waitpid($child,0);
} else {
   close PARENTREAD; # We don't need these in the child
   close CHILDWRITE;
   chomp($calculation = <CHILDREAD>);
   print "Got $calculation\n";
   $result = eval "$calculation";
   print PARENTWRITE "$result\n";
   close CHILDREAD;
   close PARENTWRITE;
   exit;
}

次の結果が生成されます。計算がCHILDWRITEに送信され、子によってCHILDREADから読み取られることがわかります。 次に、結果が計算され、PARENTWRITEを介して親に返されます。親はPARENTREADから結果を読み取ります。

Got 34+56;
Got a value of 90 from child