pid ファイルを読んで procfs からバーンと取って集計とるようなやつを書いてみた。 1secごとに60回データを取って、平均を取るみたいなのを子プロセス含めてバーンとヤる感じをやってみた。 書きながらオーバーヘッドがどうかな〜とか考え始めちゃって、結局こういうの、go で書いたほうが良いなということを感じる。 use strict; use warnings; use v5.10.0; use Getopt::Long; use Pod::Usage; use warnings FATAL => 'recursion'; { package ProcStat::Stat; use File::Basename qw/basename/; use List::Util qw/sum0/; sub new { my $class = shift; bless { }, $class;