Как мой Perl-скрипт узнает, что он работает под Win64?

Question

Как я могу заставить мой Perl-скрипт обнаруживать, что он работает на 64-битной Windows-машине, даже если это 32-битный Perl?

Answer 1

См. этот вопрос . Вы проверяете переменную окружения %PROCESSOR_ARCHITECTURE%.

Answer 2

Спасибо, Бен С.

По ссылке в вопросе, на которую вы ссылались: Блог MSDN о том, как определить битность процесса

Получил следующий код: print "WIN64 ?: $ ENV {PROCESSOR_ARCHITECTURE} \ n"; print "WIN64 ?: $ ENV {PROCESSOR_ARCHITEW6432} \ n";

И следующий вывод (32-битный Perl на xp64)

WIN64 ?: x86

WIN64 ?: AMD64

Похоже, если вы используете 32-битное приложение с 64-битным выигрышем, вам нужно ссылаться на PROCESSOR_ARCHITEW6432.

Answer 3

if (($ENV{'PROCESSOR_ARCHITECTURE'} eq "AMD64") or
    ($ENV{'PROCESSOR_ARCHITEW6432'} eq "AMD64")) {
   $arch = "win64";
} else {
   $arch = "win32";
}

Ссылка: http://blogs.msdn.com/b/david.wang/archive/2006/03/26/howto-detect-process-bitness.aspx

Answer 4

Другим методом, хотя и более сложным, будет проверка функции Windows API IsWow64Process. Пример того, как это сделать (в Delphi), дан в ответе на на этот вопрос .

Answer 5

    my @CPUIdentifierArray = split ' ', $ENV{PROCESSOR_IDENTIFIER};
    my %ArcHash        = ('x86' => 32, 'AMD64' => 64, 'Intel64' => 64);
    my $Arch           = $ArcHash{$CPUIdentifierArray[0]};

Возвращает 32 или 64