Question

如何获取Perl中的CPU或内核数量。我想要这个，决定动态创建线程数。下面我创建了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();

Answer 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;

Answer 2

老问题，但这里是我如何告诉我的linux服务器上的CPU数量：

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

这仅适用于linux / cygwin。从好的方面来看，这个解决方案并不需要安装任何额外的perl模块。

修改
Barak Dagan建议只使用perl＆＃34;解决方案（我还没有测试过）：

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

Answer 3

getNumCpus的{{1}}方法适用于许多不同的操作系统和配置。

Answer 4

无法使用 Sys :: Info 或 Sys :: CpuAffinity 的基于Windows的用户的替代方案：

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

Answer 5

这是我正在使用的紧凑版本：

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

Answer 6

似乎$ ENV {NUMBER_OF_PROCESSORS}适用于Windows，但我一直在寻找可在Linux和Cygwin上运行的Perl单线程，它不会调用外部可执行文件。不幸的是我没有Sys :: *包，我无法安装它们。

我从getconf(1)开始。它显示了配置变量：_NPROCESSORS_CONF和_NPROCESSORS_ONLN。在getconf（1）（strace -o s.log getconf -a）上使用strace(1)，结果证明这些信息是使用/sys/devices/system/cpu路径生成的。这个目录有cpu[0-9]+个像sub-dirs，这让生活变得有点复杂。所以我回到了众所周知的/proc/cpuinfo，这就是单行：

my $cpus = do { local @ARGV='/proc/cpuinfo'; grep /^processor\s+:/, <>;};

也许这可以扩展到获得在线核心的数量，但现在已经足够了。

Answer 7

旧线程，但是我最近写了这个，它似乎工作得很好...

sub getCoreCount {
  my $cpucount = 0;
  open(my $CPUINFO, "<", "/proc/cpuinfo") or die $!;


  while (my $line = <$CPUINFO>) {
    if ($line =~ /^processor/) {
      $cpucount++;
    }
  }

  close $CPUINFO;
  return $cpucount;
}

print "CPUs: ".getCoreCount()."\n";

对于OS X / macOS，我有这个https://gist.github.com/ablakely/4328790d106ae448885fe8949f5f4301

Perl中的CPU /内核数

7 个答案: