使用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）區分 的變體。