使用perl确定Microsoft Windows的版本？

Question

我在Windows上创建一个小的perl脚本。 我想确定Windows的版本，即XP，Vista，7,8等。 我如何获取此信息？ 谢谢。

更新：我想知道运行脚本的Windows版本！ 请加入一些关于如何使用API​​的代码，因为我是初学者&对perl不太了解。

Answer 1

尝试Win32：

#!/usr/bin/env perl 

use 5.014; 
use strict; 
use warnings; 

use Win32; 

say Win32::GetOSDisplayName(); 
say for Win32::GetOSName(); 
say for Win32::GetOSVersion(); 

如果这还不够，你可以通过拨打Win32::APIGetVersionEx。

Answer 2

从http://perldoc.perl.org/perlvar.html

$^o

操作系统下其中的Perl这个副本是 建，在配置过程中所确定的名称。例如 请参见perlport中的PLATFORMS。

该值与$ Config {'osname'} 相同。另请参阅配置和在 perlrun中记录的-V命令行开关。

在Windows平台中，$^O并不是很有帮助：因为它始终是MSWin32，所以它不会告诉我们在95/98/ME/NT/2000/XP/CE/.NET之间的区别。使用Win32 :: GetOSName（）或 Win32 :: GetOSVersion（）（请参阅Win32和perlport）区分 的变体。