perl操作OLE.pdfVIP

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() 下一个可用驱