num-cpus

来自「linux下开源浏览器WebKit的源码,市面上的很多商用浏览器都是移植自Web」· 代码 · 共 17 行

#!/usr/bin/perl

use strict;
use warnings;

use Win32API::Registry 0.21 qw( :ALL );


my $key;
my $i = 0;
while (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\$i", 0, KEY_READ, $key)) {
    $i++;
    RegCloseKey($key);
}

print "$i\n";