HPUX::Pstat - Perl wrapper for pstat() functions

use HPUX::Rstat;

$pst = HPUX::Pstat::getstatic();

$psd = HPUX::Pstat::getdynamic();

$psv = HPUX::Pstat::getvminfo();

$pss = HPUX::Pstat::getswap(size = 1, start = 0);

$pss = HPUX::Pstat::getproc(size = 1, start = 0);

$pss = HPUX::Pstat::getprocessor(size = 1, start = 0);

This Perl modules lets you call some of the pstat(2) functions and returns system performance data in Perl data structures. HPUX::Pstat is meant as a foundation to build performance monitoring tools upon.

The HPUX::Pstat::getstatic, HPUX::Pstat::getdynamic and HPUX::Pstat::getvminfo functions each return a hashref containing most of the respective C structure members.

The HPUX::Pstat::getswap, HPUX::Pstat::getproc and HPUX::Pstat::getprocessor functions take up to two arguments and return a reference to an array-of-hashes. The arguments specify the number of records to fetch and the index of the first record and are equivalents to the elemcount and index arguments of the respective pstat functions. In any case only valid data is returned (Example: If you call HPUX::Pstat::getprocessor(4) on a 2-processor box, the resulting array will contain only two entries).

The included example1.pl dumps the data structures of all functions. For more information read /usr/include/sys/pstat.h.

According to the pstat(2) manpage the calling interface is kernel dependent. So do not expect too much. HPUX::Pstat was written and tested on a HPUX 11.0 box and compiles well with Perl 5.6.1 and gcc.

So far the list of imported struct members is hardcoded in pack.c. I also left out some of the more obscure struct members and all of the members marked as deprecated.

As any software this package may contain bugs. Please feel free to contact me if you find one.

Axel Schwenke <axel.schwenke@gmx.net>

Copyright (c) 2003 Axel Schwenke. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Version 1.01 (31 March 2003)

pstat(2).