BSD::getloadavg 0.03

BSD::getloadavg is a Perl Interface to getloadavg.

SYNOPSIS

use BSD::getloadavg;
my @loadavg = getloadavg();

This module allows you to access load average without invoking uptime(1). Instead of

my @loadavg = (qx(uptime) =~ /([.d]+)s+([.d]+)s+([.d]+)/);

You can simply

use BSD::getloadavg;
my @loadavg = getloadavg();

COMPATIBILITY

Though named BSD::getloadavg, this module also works on Linux and other platforms that support getloadavg. To find if your platform supports this module, Just

nm /usr/lib/libc.* | grep getloadavg

BENCHMARK

You can run benchmark with t/benchmark.pl. Here is the result in my platforms.

MacBook Pro 2GHz, Mac OS X 10.4.8

Benchmark: running XS, command for at least 3 CPU seconds...
Rate command XS
command 1061/s -- -98%
XS 69808/s 6482% --

Dual Xeon 2.8GHz, FreeBSD 6-Stable

Benchmark: running XS, command for at least 3 CPU seconds...
Rate command XS
command 919/s -- -99%
XS 139023/s 15026% --

Requirements:

· Perl



Product's homepage

Requirements:

· Perl