Количество процессоров/ядер в Perl

Как получить количество процессоров или ядер в Perl. Я хочу это, чтобы решить, создавая число потоков динамически. Ниже я создал 3 потока. Но я хочу создавать потоки, основанные на количестве ядер в этой машине.

#!/usr/bin/perl -w
use threads;
use Thread::Semaphore;

my $semaphore = Thread::Semaphore->new();`enter code here`
my $cur_dir   = "D:\\qout";
opendir( CURDIR, "$cur_dir" );
my @file_list : shared = readdir(CURDIR);
closedir(CURDIR);


$thr1 = threads->create( \&changemode, \@file_list, "th1" );
$thr2 = threads->create( \&changemode, \@file_list, "th2" );
$thr3 = threads->create( \&changemode, \@file_list, "th3" );

sub &changemode {

    my ($file_list) = shift;
    my ($message)   = shift;
    my ($i)         = shift;
    while (@{$file_list}) {
        my $fname;
        $semaphore->down();
        if (@{$file_list}) {
            $fname = shift(@{$file_list});
        }
        $semaphore->up();
        print("$message got access of $fname\n");
        system ("csh -fc \"chmod +w $fname\"");
        #sleep (2);
    }
}


$thr1->join();

$thr2->join();

$thr3->join();

Ответ 1

Проверьте модули CPAN, такие как Sys:: Info:: Device:: CPU

   use Sys::Info;
   use Sys::Info::Constants qw( :device_cpu );
   my $info = Sys::Info->new;
   my $cpu  = $info->device( CPU => %options );

   printf "CPU: %s\n", scalar($cpu->identify)  || 'N/A';
   printf "CPU speed is %s MHz\n", $cpu->speed || 'N/A';
   printf "There are %d CPUs\n"  , $cpu->count || 1;
   printf "CPU load: %s\n"       , $cpu->load  || 0;

Ответ 2

Старый вопрос, но вот как я говорю количество процессоров на моем Linux-сервере:

#!/usr/bin/perl
chomp(my $cpu_count = `grep -c -P '^processor\\s+:' /proc/cpuinfo`);
print("CPUs: $cpu_count\n");

Это работает только в linux/cygwin. На яркой стороне это решение не требует никаких дополнительных модулей perl.

Edit:
Барак Даган предложил решение "только для perl" (я его не тестировал):

open my $handle, "/proc/cpuinfo" or die "Can't open cpuinfo: $!\n";
printf "CPUs: %d\n", scalar (map /^processor/, <$handle>) ; 
close $handle;

Ответ 3

Метод getNumCpus Sys::CpuAffinity работает во многих разных операционных системах и конфигурациях.

Ответ 4

Альтернатива для пользователей на основе Windows, которые не могут использовать Sys:: Info или Sys:: CpuAffinity:

my $numberofcores = $ENV{"NUMBER_OF_PROCESSORS"};

Ответ 5

Это плотная версия, которую я использую:

use Path::Tiny;
sub getProcessors {
    my @cpuinfo = split "\n", path("/proc/cpuinfo")->slurp_utf8();
    return scalar (map /^processor/, @cpuinfo) ;
}