有哪些信誉好的足球投注网站- 1、本文档共8页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
perl操作OLE
Perl 言高级编程专题
Lesson 8
周晓方
courses@
注意: 本课内容仅适合Win32环境, 其中9X和NT系统也有细微差别
并且Win32::OLE 的实例和应用程序的版本有关
1
ActivePerl 的Win32模块
使用ActivePerl,程序增加use Win32;
错误编号和错误字符串(Win32有时不用$!)
– Win32::GetLastError()
– Win32::FormatMessage(Win32::GetLastError())
操作系统的版本信息
– ($serive_pack, $major, $minor, $build, $platform_id)
= Win32::GetOSVersion()
– 其中platform_id,0 = win32, 1=win9x, 2=winnt
– 判断Win类型Win32::IsWinNT(), Win32::IsWin95()
– Perl 的编号: $PerlBuild = Win32::BuildNumber();
2
实例version.pl
use Win32;
my ($service_pack, $major, $minor, $build, $platform_id) =
Win32::GetOSVersion();
my ($perlbuild) = Win32::BuildNumber();
my ($is95, $isnt) = (Win32::IsWin95(), Win32::IsWinNT());
print Here;
(省略,详见version.pl)
Here
1;
XP上运行的结果 98上运行的结果(安装的ActivePerl版本不同)
Win32::GetOSVersion() returns: Win32::GetOSVersion() returns:
service_pack Service Pack 1 service_pack A
major.minor 5.1 major.minor 4.10
build 2600 build
platform_id 2 platform_id 1
Win32::BuildNumber() returns: Win32::BuildNumber() returns:
635 805
Win32::IsWin95() returns 0 Win32::IsWin95() returns 1
Win32::IsWinNT() returns 1 Win32::IsWinNT() returns 0
3
另一些函数
用户名、计算机名、域名
– Win32::LoginName(), Win32::NodeName(),
Win32::DomainName()
设置和获取当前工作目录
– Win32::SetCwd(路径), Win32::SetCwd()
文件系统类型
– (类型，标志，目录串长度)=Win32::FsType()
下一个可用驱
文档评论（0）