■

サーバーのload averageを自分でとりたいなあと思って書いてみた。
そんなモジュールあってもよさそうなんだけどなあ。
別のに書いたんだけど、なんかこちらに書くべきかと思ったからこっちに移動。

#!/usr/bin/perl 
use strict;
use warnings;
use IO::Pipe;
use Perl6::Say;

{
    my $pipe = IO::Pipe->new;
    $pipe->reader(qw/uptime/) or die;
    my @uptime = split "," , <$pipe>;
    $pipe->close;

    my ($name, $load_average) = split(':', $uptime[3]);

    say $load_average;
}