[Perl] プロセス間通信

Posted by
ぴろり
Posted at
2009/03/26 22:32
Trackbacks
関連記事 (0)
Post Comment
コメントできます
Category
開発メモ カテゴリ

 Perl で fork した際に、親子プロセス間で通信を行うソースコードの覚書。

この記事を Delicious に追加する   このエントリーをはてなブックマークに追加  

#!/usr/bin/perl
use Socket;
use IO::Handle; # autoflushのために何千行も :-(

socketpair (CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
    or die "socketpair: $!";
CHILD->autoflush(1);
PARENT->autoflush(1);

$pid = fork;
if (!defined $pid) {
    die "cannot fork: $!";
}
elsif ($pid) {
    # 自分は親なので親のソケットは不要。閉じる。
    close PARENT;
    # 子に伝言する
    print CHILD "Parent Pid $$ is sending this
";
    # 子からの伝言を受ける
    chomp ($line = <CHILD>);
    print "Parent Pid $$ just read this: `$line'
";
    # 子へのソケットを閉じる
    close CHILD;
    # 子プロセスの終了を待つ
    waitpid $pid, 0;
}
else {
    # 自分は子なので子のソケットは不要。閉じる。
    close CHILD;
    # 親に伝言する
    print PARENT "Child Pid $$ is sending this
";
    # 親からの伝言を受ける
    chomp ($line = <PARENT>);
    print "Child Pid $$ just read this: `$line'
";
    # 親へのソケットを閉じる
    close PARENT;
    # プロセスを終了する
    exit;
}

 参照元:perlipc - Perl のプロセス間通信

この記事を Delicious に追加する   このエントリーをはてなブックマークに追加  


この記事を読んだ人はこんな記事も読んでいます記事リコメンデーションについて

カバー画像:[Perl] スレッドを使って多重リクエスト

関連記事/トラックバック

関連記事/トラックバックはまだありません

この記事にトラックバックを送るには?

コメントを投稿する

 
 (必須, 匿名可, 公開, トリップが使えます)
 (必須, 匿名可, 非公開, Gravatar に対応しています)
 (必須)
スパム コメント防止のため「投稿確認」欄に ランダムな数字 CAPTCHAについて を入力してから送信してください。お手数ですがご協力のほど宜しくお願いいたします。