1System::Info(3) User Contributed Perl Documentation System::Info(3)
2
6 System::Info - Factory for system specific information objects
7
9 use System::Info;
10 my $si = System::Info->new;
12 printf "Hostname: %s\n", $si->host;
14 printf "Number of CPU's: %s\n", $si->ncpu;
15 printf "Processor type: %s\n", $si->cpu_type; # short
16 printf "Processor description: %s\n", $si->cpu; # long
17 printf "OS and version: %s\n", $si->os;
18 or
20 use System::Info qw( sysinfo );
22 printf "[%s]\n", sysinfo ();
23 or
25 $ perl -MSystem::Info=si_uname -le print+si_uname
27
29 System::Info tries to present system-related information, like number
30 of CPU's, architecture, OS and release related information in a system-
31 independent way. This releases the user of this module of the need to
32 know if the information comes from Windows, Linux, HP-UX, AIX, Solaris,
33 Irix, or VMS, and if the architecture is i386, x64, pa-risc2, or arm.
34
36 System::Info->new
37 Factory method, with fallback to the information in "POSIX::uname ()".
38 sysinfo
40 "sysinfo" returns a string with "host", "os" and "cpu_type".
41 sysinfo_hash
43 "sysinfo_hash" returns a hash reference with basic system information,
44 like:
45 { cpu => 'Intel(R) Core(TM) i7-6820HQ CPU @ 2.70GHz (GenuineIntel 2700MHz)',
47 cpu_count => '1 [8 cores]',
48 cpu_cores => 8,
49 cpu_type => 'x86_64',
50 distro => 'openSUSE Tumbleweed 20171030',
51 hostname => 'foobar',
52 os => 'linux - 4.13.10-1-default [openSUSE Tumbleweed 20171030]',
53 osname => 'Linux',
54 osvers => '4.13.10-1-default'
55 }
56 si_uname (@args)
58 This class gathers most of the uname(1) info, make a comparable
59 version. Takes almost the same arguments:
60 a for all (can be omitted)
62 n for nodename
63 s for os name and version
64 m for cpu name
65 c for cpu count
66 p for cpu_type
67
69 There are more modules that provide system and/or architectural
70 information.
71 Where System::Info aims at returning the information that is useful for
73 bug reports, some other modules focus on a single aspect (possibly with
74 way more variables and methods than System::Info does supports), or are
75 limited to use on a specific architecture, like Windows or Linux.
76 Here are some of the alternatives and how to replace that code with
78 what System::Info offers. Not all returned values will be exactly the
79 same.
80 Sys::Hostname
82 use Sys::Hostname;
83 say "Hostname: ", hostname;
84 ->
86 use System::Info;
88 my $si = System::Info->new;
89 say "Hostname: ", $si->host;
90 Sys::Hostname is a CORE module, and will always be available.
92 Unix::Processors
94 use Unix::Processors;
95 my $up = Unix::Processors->new;
96 say "CPU type : ", $up->processors->[0]->type;
97 say "CPU count: ", $up->max_physical;
98 say "CPU cores: ", $up->max_online;
99 say "CPU speed: ", $up->max_clock;
100 ->
102 use System::Info;
104 my $si = System::Info->new;
105 say "CPU type : ", $si->cpu;
106 say "CPU count: ", $si->ncpu;
107 say "CPU cores: ", $si->ncore;
108 say "CPU speed: ", $si->cpu =~ s{^.*\b([0-9.]+)\s*[A-Z]Hz.*}{$1}r;
109 The number reported by max_physical is inaccurate for modern CPU's
111 Sys::Info
113 Sys::Info has a somewhat rigid configuration, which causes it to fail
114 installation on e.g. (modern versions of) CentOS and openSUSE
115 Tumbleweed.
116 It aims at returning a complete set of information, but as I cannot
118 install it on openSUSE Tumbleweed, I cannot test it and show the
119 analogies.
120 Sys::CPU
122 use Sys::CPU;
123 say "CPU type : ", Sys::CPU::cpu_type ();
124 say "CPU count: ", Sys::CPU::cpu_count ();
125 say "CPU speed: ", Sys::CPU::cpu_clock ();
126 ->
128 use System::Info;
130 my $si = System::Info->new;
131 say "CPU type : ", $si->get_cpu; # or ->cpu
132 say "CPU count: ", $si->get_core_count; # or ->ncore
133 say "CPU speed: ", $si->get_cpu =~ s{^.*\b([0-9.]+)\s*[A-Z]Hz.*}{$1}r;
134 The speed reported by Sys::CPU is the current speed, and it will change
136 from call to call. YMMV.
137 Sys::CPU is not available on CPAN anymore, but you can still get is
139 from BackPAN.
140 Devel::Platform::Info
142 Devel::Platform::Info derives information from the files "/etc/issue",
143 "/etc/.issue" and the output of the commands "uname -a" (and "-m",
144 "-o", "-r", and "-s") and "lsb_release -a". It returns no information
145 on CPU type, CPU speed, or Memory.
146 use Devel::Platform::Info;
148 my $info = Devel::Platform::Info->new->get_info ();
149 ->
151 use System::Info;
153 my $si = System::Info->new;
154 my $info = {
155 archname => $si->cpu_type,
156 codename => undef,
157 is32bit => undef,
158 is64bit => undef,
159 kernel => "$^O-".$si->_osvers,
160 kname => $si->_osname,
161 kvers => $si->_osvers,
162 osflag => $^O,
163 oslabel => $si->distro,
164 osname => undef,
165 osvers => $si->distro,
166 };
167 Devel::CheckOS
169 This one does not return the OS information as such, but features an
170 alternative to $^O.
171
173 (c) 2016-2022, Abe Timmerman & H.Merijn Brand, All rights reserved.
174 With contributions from Jarkko Hietaniemi, Campo Weijerman, Alan
176 Burlison, Allen Smith, Alain Barbet, Dominic Dunlop, Rich Rauenzahn,
177 David Cantrell.
178 This library is free software; you can redistribute it and/or modify it
180 under the same terms as Perl itself.
181 See:
183 • <http://www.perl.com/perl/misc/Artistic.html>
185 • <http://www.gnu.org/copyleft/gpl.html>
187 This program is distributed in the hope that it will be useful, but
189 WITHOUT ANY WARRANTY; without even the implied warranty of
190 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
191perl v5.34.0 2022-01-21 System::Info(3)