WebKitTools/Scripts/num-cpus

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Win32API::Registry 0.21 qw( :ALL );
   7
   8
   9 my $key;
  10 my $i = 0;
  11 while (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\$i", 0, KEY_READ, $key)) {
  12     $i++;
  13     RegCloseKey($key);
  14 }
  15
  16 print "$i\n";