Parse::DMIDecode::Examples - Examples using Parse::DMIDecode::Examples

       Copyright 2007 Nicola Worthington.

       This software is licensed under The Apache Software License, Version 2.0.

       <http://www.apache.org/licenses/LICENSE-2.0>

perl v5.36.0                                       2022-10-13                    Parse::DMIDecode::Examples(3pm)

Example1:FindtheNumberofPhysicalCPUs
        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"),
            );

       Parse::DMIDecode::Examples - Examples using Parse::DMIDecode::Examples