TSfree 発言

On Mon, 07 Apr 2003 23:54:45 +0900
WATANABE Hirofumi <eban@...> さんwrote:

> 最近のCygwinなら
>   % cat /proc/uptime
>   198372.18 0.00
> もできますが、この数値が欲しい？

　毎度です。下記のような具合に使うのですが、出力形式が随分違うと思います。

sub getCpuUsage
{
    my ($self, $arg1, $arg2) = @_;
    my $output = `uptime`;
    my @tokens = split /\s+/, $output;
    #Remove commas.
    @tokens = map {s/,//g; $_} @tokens;

    my @array;
    my %hash = ("Name" => 'L 1', "Value" => $tokens[10]);
    push @array, \%hash;
    my %hash1 = ("Name" => 'L 5', "Value" => $tokens[11]);
    push @array, \%hash1;
    my %hash2 = ("Name" => 'L 15', "Value" => $tokens[12]);
    push @array, \%hash2;
    return \@array;
}

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/