Could not get platform OS version |
if (Windows()) { # The output of ver looks like: # # Microsoft Windows XP [Version 5.1.2600] # # (including the empty line before) $platform_os_version = `ver`; # we keep the first two fields of the version number if (! ($platform_os_version =~ s/\nMicrosoft.*\[Version +([0-9]+\.[0-9]+)\..*\]/$1/g)) { $platform_os_version = ""; } if ($platform_os_version =~ /^5\..*/) { $platform_os_version = "5.1"; } } else { $platform_os_version = `uname -r`; # we keep all fields of the version number if (! ($platform_os_version =~ s/^[^0-9]*([0-9.]+).*$/$1/s)) { $platform_os_version = ""; } } chomp ($platform_os); chomp ($platform_os_version); if (! $platform_os_version ) { CorFail ("Could not get platform OS version"); } |
可以看到env.core.pl使用正则表达式s/\nMicrosoft.*\[Version +([0-9]+\.[0-9]+)\..*\]/$1/g来分析Ver的输出结果。如果操作系统为非中文版本或者安装了界面包的情况下,ver命令便有可能输出中文结果,导致脚本出错。虽然可以通过修改系统Locale的方式解决,不过更简单的解决方法显然是直接修改脚本,把$platform_version固定为某个值,比如5.1,修改后代码如下:
if (Windows()) { # assume 5.1 version because the original code cannot parse the output of ver command correctly in non-English OS $platform_os_version = "5.1"; } else { $platform_os_version = `uname -r`; # we keep all fields of the version number if (! ($platform_os_version =~ s/^[^0-9]*([0-9.]+).*$/$1/s)) { $platform_os_version = ""; } } chomp ($platform_os); chomp ($platform_os_version); if (! $platform_os_version ) { CorFail ("Could not get platform OS version"); } |
这里有一个已经修改好的env.core.pl (放在我的Windows Live Skydrive账户里面),有需要的朋友可以点击下载,然后覆盖SSCLI20目录下的env.core.pl即可。
作者: 张羿(ATField)
Blog: http://blog.csdn.net/atfield
http://blogs.msdn.com/yizhang
转载请注明出处
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1836028