Win32::OLE基础问题请教

yhou31

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;    # die on errors...
my $Excel;
eval {        $Excel = Win32::OLE->GetActiveObject('Excel.Application') };

我想知道GetActiveObject方法的实现内容是体现在哪个文件里面？我在perl\lib\win32\ole.pm文件中，没有发现。只有对该方法的介绍：

=item Win32::OLE->GetActiveObject(CLASS[, DESTRUCTOR])

The GetActiveObject() class method returns an OLE reference to a
running instance of the specified OLE automation server.  It returns
C<undef> if the server is not currently active.  It will croak if
the class is not even registered.  The optional DESTRUCTOR method takes
either a method name or a code reference.  It is executed when the last
reference to this object goes away.  It is generally considered C<impolite>
to stop applications that you did not start yourself.

rubyish

wocai shi ole.xs

yhou31

回复 2# rubyish


    这文件在哪个目录啊？没找到。

rubyish

Index of /src/JDB/Win32-OLE-0.1712

Icon  Name                    Last modified      Size  [DIR] Parent Directory                             -   
[   ] Changes                 14-May-2014 16:35   20K  
[   ] MANIFEST                14-May-2014 16:35  1.8K  
[   ] MANIFEST.SKIP           14-May-2014 16:35   94   
[   ] META.yml                14-May-2014 16:35  388   
[TXT] Makefile.PL             14-May-2014 16:35  1.8K  
[TXT] OLE.xs                  14-May-2014 16:35  167K  
[   ] README                  14-May-2014 16:35  921   
[   ] ToDo                    14-May-2014 16:35  1.6K  
[DIR] browser/                14-May-2014 16:35    -   
[DIR] eg/                     14-May-2014 16:35    -   
[DIR] hints/                  14-May-2014 16:35    -   
[DIR] lib/                    14-May-2014 16:35    -   
[DIR] t/                      14-May-2014 16:35    -   

http://cpansearch.perl.org/src/JDB/Win32-OLE-0.1712/

yhou31

回复 4# rubyish


    谢谢，我以为在本地的Perl目录下有这个文件呢。