本文共 1760 字，大约阅读时间需要 5 分钟。
| 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"); } |
这里有一个已经修改好的 （放在我的Windows Live Skydrive账户里面），有需要的朋友可以点击下载，然后覆盖SSCLI20目录下的env.core.pl即可。
作者: 张羿(ATField)
Blog: 转载请注明出处Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1836028