/usr/share/perl5/Parse/DMIDecode/Examples.pod is in libparse-dmidecode-perl 0.03-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | ############################################################
#
# $Id: Examples.pm 756 2006-08-24 22:30:54Z nicolaw $
# Parse::DMIDecode::Examples - Examples using Parse::DMIDecode::Examples
#
# Copyright 2007 Nicola Worthington
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
############################################################
# vim:ts=4:sw=4:tw=78
=pod
=head1 NAME
Parse::DMIDecode::Examples - Examples using Parse::DMIDecode::Examples
=head1 EXAMPLES
=head2 Example 1: Find the Number of Physical CPUs
use strict;
use Parse::DMIDecode qw();
my $dmi = Parse::DMIDecode->new( nowarnings => 1 );
$dmi->probe;
my $physical_cpus = 0;
for my $handle ($dmi->get_handles(group => "processor")) {
my $type = ($handle->keyword("processor-type") or "");
next unless $type =~ /Central Processor/i;
# Check the status of the cpu
my $status = ($handle->keyword("processor-status") or "");
if ($status !~ /Unpopulated/i) {
$physical_cpus++;
}
}
printf("There %s %d physical %s in this machine.\n",
($physical_cpus == 1 ? "is" : "are"),
$physical_cpus,
($physical_cpus == 1 ? "CPU" : "CPUs"),
);
=head1 COPYRIGHT
Copyright 2007 Nicola Worthington.
This software is licensed under The Apache Software License, Version 2.0.
L<http://www.apache.org/licenses/LICENSE-2.0>
=cut
|