にひりずむ::しんぷる - 親プロセスと子プロセスでデータを送受信する方法のメモ
pipe() とか socketpair() とか色々方法はあるけど、素直に IO::Pipe 使っとくと簡単便利。コアモジュールですし。 use strict; use warnings; use IO::Pipe; my $pipes = []; my $children = []; for my $i (1..10) { push @$pipes, my $pipe = IO::Pipe->new; my $pid = fork; if ($pid) { # parent $pipe->reader; push @$children, $pid; next; } # child die $! unless defined $pid; $pipe->writer; print {$pipe} "pid: $$, index: $i\n"; exit; } for my $pid (@$
(Obsolete) Parallel::ForkManager + IPC::Shareable で複数のプロセスで変数を共有する - 日向夏特殊応援部隊
追記: 2011-12-20T03:18:11+09:00 結構この記事をしばしば参考にして安易にSystemV IPC 共有メモリに突っ込む事をやる人も居るようですが、IPC::Shareable 自体が長い事、メンテされてない上に、SystemV IPC 自体も古くさい手法です。大人しくファイルに書き出すなり、SQLite などを使って保存したりだとか、AnyEvent, Coro 等で書き直すとか、より簡単で確実な方法を試した方が良いでしょう。 つまるところ、この方法はお勧め出来ません。エントリ自体は削除せずに残しておきますが、そのつもりで読んで下さい。 オライリーの Perl クックブックの古い奴のレシピ 16.12 とかに書いてある内容なんですけど、自分でも試してみました。 IPC::Shareable のインストール 残念ながら現在のバージョン 0.60 はそのままだとテストが
hollyなblog:システム管理系なperlねたその1
システム管理のためのperlのねたのメモ。 Plack/PSGI, CatalystなどのようなmodernなWEB系システムの話じゃなく、そういうアプリケーションの下で動いている == バックエンドで動いているシステムを作る時に自分が心がけていることをまとめてみる。 バックエンドで動く == batch処理とかCLIベースなプログラム となるので、外部コマンドを実行するというのがなんとなく増えてしまう。それはそれで悪くないのだが、いろいろ思うところがあるのでずらずら書いてみよう。 まあ私見なので、他人が見たら違うというところもあるだろうけど。 1. 外部コマンドの実行結果をチェックする 平穏な状態ではまず失敗しないようなコマンドも、サーバ、ネットワークの負荷が高い、特殊な環境では失敗することもあったり。というわけでコマンド実行した後は必ずsystem "/path/to/command"
hollyなblog:IPC::Runを使ってみる
最近は裏方的なシステムばっかり作ってるような気がするので、必然とunixコマンド使うことが多い。 でうちの会社では例えばperlで作っていたりしても結局unixコマンドを使いまくってる。# 例えばこんな感じ system "/path/to/script"; # 戻り値がほしい場合はこんな感じ my $res = `/path/to/script`;とこんなのが多いので、これならshellで書いたほうがいいんちゃうかとかも思わないでもないが、それはともかくとしてこういう処理が多いので、外部コマンド実行時に便利なモジュールはないかと探っていたところIPC::Runなるモジュールがあるので（とは言いながら昔から存在は知ってたのだが）、とりあえず使えそうか試してみる。あんましメジャーじゃないのかそんなにこのモジュールに関する情報もほとんどないので、ねたとしてはちょうどいいんじゃないかと。 依存モ
ファイルに書かれたら irc とかネットに通知するとかそういうデーモンを作るときは mkfifo するといいんじゃないか - kazuhoのメモ置き場
デーモン側をこんな感じで書きます。 use Errno qw(EEXIST); use Fcntl qw(S_IFIFO); use POSIX qw(mkfifo); my $FIFO_NAME = "/tmp/my_messenger.fifo"; if (mkfifo($FIFO_NAME, 0666)) { # ok } elsif ($! == EEXIST) { die "$FIFO_NAME is not a fifo!" unless +(stat($FIFO_NAME) & !S_IFIFO) != 0; } else { die "failed to create fifo:$FIFO_NAME, $!"; } while (1) { open my $fh, '<', $FIFO_NAME or die "failed to open fifo:$FIFO_NAME,
IPC::Open3 の正しい使い方 (re .pl な config ファイルのコンパイルがとおるかチェックしてみる - TokuLog 改メ tokuhirom’s blog) - kazuhoのメモ置き場
http://d.hatena.ne.jp/tokuhirom/20100813/1281666615 の件ですが、IPC::Open3 の使い方が気になったので、勝手に添削 (c) dankogai。 use IPC::Open3; ... my($wtr, $rdr, $err); my @cmd = ($^X, (map { "-I$_" } grep { !ref $_ } @INC), '-c', $file); my $pid = open3($wtr, $rdr, $err, @cmd); waitpid($pid, 0); IPC::Open3 は子プロセスの標準入出力と標準エラー出力を、親プロセスとパイプでつないでプロセス間通信を行うための仕組みです。 パイプには一定サイズのバッファがあり (Linux だと 4KB)、パイプにこれを超える大きさのデータが書き込まれると、
perlipc - Perl のプロセス間通信 (シグナル, fifo, パイプ, 安全な副プロセス, ソケット, セマフォ) - perldoc.jp
perlipc - Perl interprocess communication (signals, fifos, pipes, safe subprocesses, sockets, and semaphores) The basic IPC facilities of Perl are built out of the good old Unix signals, named pipes, pipe opens, the Berkeley socket routines, and SysV IPC calls. Each is used in slightly different situations. Perl uses a simple signal handling model: the %SIG hash contains names or references of use
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
