Unix::Uptime - Determine the current uptime, in seconds, and load averages, across different *NIX architectures
# Standard Usage use Unix::Uptime; my $uptime = Unix::Uptime->uptime(); # 2345 # "HiRes" mode use Unix::Uptime qw(:hires); my $uptime = Unix::Uptime->uptime_hires(); # 2345.123593 # Load Average my ($load1, $load5, $load15) = Unix::Uptime->load(); # (1.0, 2.0, 0.0)
This is a rather simple module that abstracts the task of figuring out the current system uptime, in seconds. It was born out of a desire to do this on non-Linux systems, without SNMP. If you want to use SNMP, there are pleanty of modules on CPAN already.
Additionally, since version 0.33_02, it supports retrieving the load average.
Currently, this module just supports Linux, FreeBSD, Darwin (Mac OS X), OpenBSD, and NetBSD. It should be easy enough to add support for other operating systems, though.
While this module doesn't provide any functions for exporting, if the tag
:hires is given, then uptime_hires static method will be available. It returns decimal numbers when possible, but on some systems it is simply an alias for
uptime(). This will likely require the Time::HiRes module to be available. Otherwise, they will simply be whole seconds.
The following static (class) methods are available:
This takes no arguments, and simply returns the number of seconds this system has been running. This will always be an integer.
This is only available if the
:hires import tag is used. It returns the system uptime with a greater resolution than one second on supported platforms. On some platforms, its results may not be any more precise than
uptime(), though. On different platforms, this requires different additional modules:
No additional requirements.
No more precise than uptime()
This returns an array of the load averages for the last 1, 5, and 15 minutes. The degree of precision varies from system to system.
Win32::Uptime for Win32.
This currently doesn't support more than Linux, FreeBSD, Darwin (Mac OS X), OpenBSD, and NetBSD. Contributions for other operating systems would be welcome.
NOTE: This module is still a work in progress, under fairly heavy development. While I think the final API should be mostly finalized at this point, I won't commit to an API freeze until version 1.0.
This project is developed using git. The repository may be browsed at: http://git.pioto.org/gitweb/Unix-Uptime.git
Patches in git-format-patch style are preferred. Either send them to me by email, or open an RT ticket http://rt.cpan.org/Public/Bug/Report.html?Queue=Unix-Uptime.
Mike Kelly <email@example.com>
Copyright (C) 2008-2009, Mike Kelly.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full text of the licenses at <http://www.perlfoundation.org/artistic_license_1_0>, and <http://www.gnu.org/licenses/gpl-2.0.html>.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.