Perl和OLEAutomation

    OLE是一种基于COM的技术。OLE允许应用程式使用其他应用程式提供的通用接口来访问其组件和功能。而在Perl里使用Win32::OLE模块，来实现对OLE对象的支持。
    实现Automation接口的应用程式（或DLL动态链接库）被称作 Automation Server。而创建并使用Automation接口的应用程式被称做 Automation Controller 或 Automation Client 。许多应用程式，比如 Microsoft Word，Excel，Access，及其他 Office 应用程式等等，都已实现了 Automation 接口。Automation 被广泛使用在 ASP，CGI 脚本中，通过 ADO 技术来存取某个 Data Respository。
    为了创建一个 Automation 对象，Automation Server 需要在系统中注册一下自己。一般来说，一个应用程式在安装时，已帮你做了这一步，当然啦，即便没有，那么你也能使用 regsrv32.exe 这样的工具来手动注册你的应用。这将在系统的注册表中插入一个条目，来告诉COM怎么找到这个组件，他提供了什么类型的接口，他是什么类型的 Automation Server 。你能在一个应用程式的文件中找到有关他的 Automation 对象，及相关信息。使用Perl语法同样能够创建这样的对象并访问他的组件。
    以下的就是Perl跟 Automation 相关的基本功能模块。
    Win32::OLE
        提供Perl对OLE Automation技术最主要的支持。通过这个模块，你能创建并使用 Automation 对象，调用对象的方法，设置对象的属性。
    Win32::OLE::Enum
        创建 Collections 对象，并提供接口枚举其中的项目。
    Win32::OLE::Variant
        允许你转换相关数据类型成OLE中的Variant数据类型。
    Win32::Const
        将Automation对象的常量导入到你Perl脚本中去。
注：Win32::OLE 目前还不支持 OCXs 和 OLE 事件。Win32::OLE 仅实现了 IDispatch 接口，因此他还不能存取一个客户化的 OLE 接口。

1.    创建对象
    Automation 对象在Perl里面用 Win32::OLE 对象的实例来替代。Win32::OLE 提供了三个构建器来创建一个注册了的Automation 对象。

new

GetActiveObject

GetObject

2.    Automation 方法和属性
    一旦你创建了一个 Automation 对象，你就能调用对象的方法，如果需要你还能调整对象的属性。Automation 对象方法调用用Perl语法来表示：
    $obj->some_method( args );
Automation 对象方法通常都会需要非常多参数。如果你不想要所有一个参数，你能在参数表里用undef来代替。
    $xl->WorkBooks(1)->SaveAs( $f , undef , undef , undef  , undef , 1 , undef , undef , 1 );
    你也能用一个包含命名参数赋值的hash 散列的引用来作为参数。上面这个例子也能这样写：
    $xl->WorkBooks(1)->SaveAs( $f , {AddtoMru => 1 , CreateBackup => 1});
    Automation 对象的属性能用hash符号来访问。比如：
    $value = $obj->{“property“};
    $obj->{“property“} = $value;
    你也能枚举一个Automation的属性，用下面的方法：
    $xl = Win32::OLE->new(“Excel.Application“);
    while ( ($key,$value) = each %$xl)
    {
        print “$key = $value ＼n“;
    }

2.    Win32::OLE 方法
    Win32::OLE 定义了一些他自己的方法来处理 Automation 接口。这些方法不是 Automation 定义的方法，虽然他们似乎看起来是。如果一个方法在Win32::OLE 中没有定义，那么方法调用就被传递到 Automation 对象。如果 Automation 对象也没有定义。那么你将会得到一个 OLE 错误。
    下面是在Win32::OLE 中定义的方法。

Invoke

LastError

QueryObjectType

3.    Win32::OLE函数
    下面是在Win32::OLE中定义的函数。缺省没有导出来。

in

valof

with

4.    Win32::OLE 类变量
    Win32::OLE 定义了某些类变量来设置 Automaion 使用的缺省行为。
$Win32::OLE::CP
    确定在Perl 字符串和Automation 接口Unicode之间转换的 codepage。
    缺省值是 CP_ACP，标识 ANSI codepage。
$Win32::OLE::LCID
    控制所有 OLE 调用的 locale identifier。他缺省被设置为LOCAL_NEUTRAL。
$Win32::OLE::Warn
    定义了当错误发生时，Win32::OLE 的行为。

以上内容由 华夏名网 搜集整理，如转载请注明原文出处，并保留这一部分内容。

　　“华夏名网” http://www.sudu.cn 和 http://www.bigwww.com 是成都飞数科技有限公司的网络服务品牌，专业经营虚拟主机,域名注册，VPS,服务器租用业务。公司创建于2002年，经过6年的高速发展，“华夏名网”已经成为我国一家知名的互联网服务提供商，被国外权威机构webhosting.info评价为25大IDC服务商之一。