我的Perl脚本如何知道它在Win64下运行？

Question

如何让我的Perl脚本检测到它在64位Windows机器上运行，即使它是32位的perl？

Answer 1

请参阅this question。您检查%PROCESSOR_ARCHITECTURE%环境变量。

Answer 2

感谢本·

从问题的链接，你链接到：msdn blog on how to dectect process bitness

产生如下代码： 打印 “WIN64？：$ ENV {PROCESSOR_ARCHITECTURE} \ n”; print“WIN64？：$ ENV {PROCESSOR_ARCHITEW6432} \ n”;

而下面的输出（XP64 32位的perl）

WIN64？：86

WIN64？：AMD64

看来，如果你正在运行在64位赢得一个32位的应用程序，你将需要引用PROCESSOR_ARCHITEW6432。

Answer 3

另一种方法，虽然涉及更多一点，但会检查Windows API函数IsWow64Process。在this question的答案中给出了一个如何做到这一点的例子（在Delphi中）。

Answer 4

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 5

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

它返回32或64