Perl で Load Average メモ - [ぴ](2008-04-08)_ [システム運用][Perl] Perl で Load Average メモ まぁ、システムっても、uptime 結果をこちょこちょと文字列操作して、直近１分の Load Average の値を取得してるだけなんですけどね。 具体的には↓な感じ。 my $exe_uptime= `/usr/bin/uptime`; (undef, undef, undef, my $strtmp, undef) = split (/,/, $exe_uptime); (undef, my $LA1) = split (/:/, $strtmp); $LA1=~ s/\s+//; [Load Average 48 とか、どんだけー。より引用] 直近の Load Average を知りたいだけなら、uptime を叩くより /proc/loadavg を直接読んだ方が簡潔で良さげ。 open my $fh,
](https://cdn-ak-scissors.b.st-hatena.com/image/square/d228e8be070c32c738781e15c25aeb18f4dc6807/height=288;version=1;width=512/https%3A%2F%2Fpmakino.jp%2Ftdiary%2Ftheme%2Fogimage.png)
