Perlでstrace -p pidして目的のシステムコールが来たら終了する - blog.nomadscafe.jp

riywoさんの「Perlでssh tail -fして目的の行が来たら終了する」に便乗するコネタ。 ログをtailしながら(ほぼ)リアルタイムで解析していくworkerの処理がどれくらい遅延しているのか確認して、それをgrowthforecastでグラフ化したいなと思ったので以下のようなスクリプトを書いてcronで実行しているよという話 #!/usr/bin/perl use strict; use Time::Piece; use LWP::UserAgent; my $worker = `/usr/bin/pgrep worker.pl`; chomp($worker); die "couldnot find worker pid" unless $worker; pipe my $logrh, my $logwh or die "Died: failed to create pipe

[riywo]

すげー

[hiboma]

素敵ハック

[orihime-akami]

Perlでstrace -p pidして目的のシステムコールが来たら終了する

[kazeburo]

書いた