Test::Smoke::SysInfo - OO interface to system specific information
use Test::Smoke::SysInfo; my $si = Test::Smoke::SysInfo->new; printf "Hostname: %s\n", $si->host; printf "Number of CPU's: %s\n", $si->ncpu; printf "Processor type: %s\n", $si->cpu_type; # short printf "Processor description: %s\n", $si->cpu; # long printf "OS and version: %s\n", $si->os;
use Test::Smoke::SysInfo qw( sysinfo ); printf "[%s]\n", sysinfo();
$ perl -MTest::Smoke::SysInfo=tsuname -le print+tsuname
Sometimes one wants a more eleborate description of the system one is smoking.
Dispatch to one of the OS-specific subs.
This is the short info string about the Operating System.
This is the short info string about the cpu-type. The POSIX module should provide one (portably) with
We do not have a portable way to get this information, so assign
_cpu_type to it.
Get the hostname from
Get the information from
Use the lsdev program to find information.
This routine was contributed by Rich Rauenzahn.
Use the sysctl program to find information.
This sub was donated by Dominic Dunlup.
Use the hinv program to get the system information.
Helper function to get information from /proc/cpuinfo
/proc/cpuinfo pseudofile to get the system information.
Linux on sparc architecture seems too different from intel
Linux on ppc architecture seems too different from intel
Use the psrinfo program to get the system information. Used also in Tru64 (osf).
%ENV hash to find information. Fall back on the *::Generic values if these values have been unset or are unavailable (sorry I do not have Win9).
Use Win32::TieRegistry if available to get better information.
Use some VMS specific stuff to get system information. These were suggested by Craig Berry.
sysinfo() returns a string with
This class gathers most of the
uname(1) info, make a comparable version. Takes almost the same arguments:
a for all (can be omitted) n for nodename s for os name and version m for cpu name c for cpu count p for cpu_type
(c) 2002-2006, Abe Timmerman <email@example.com> All rights reserved.
With contributions from Jarkko Hietaniemi, Merijn Brand, Campo Weijerman, Alan Burlison, Allen Smith, Alain Barbet, Dominic Dunlop, Rich Rauenzahn, David Cantrell.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
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.