modulereview
Rudif
<h4>Description</h4> For win32 platforms only. Win32::OLE module gives you Automation
access to Windows applications such as Word, Excel, Access, Rational Rose,
Lotus Notes, and many others. Which means that your Perl scripts can harness
these applications' capabilities, data and methods. Other Win32 perl modules
build on this module (for example DBD::ADO, the DBI driver for Access data
base).
<p>The module lets you create perl objects that act as proxies for the
application and it's components in your script. In the example below, $word
is your perl proxy connected to a running instance of Word. You can call
Word's Automation methods as perl methods on this object, and access the
Word properties as hash elements in your perl object.
<p>Automation-friendly Win32 applications expose hierarchies of objects
and collections. The module ties these to Perl hashes and arrays for you.
Your script just has to navigate the hierarchy and invoke the methods and
properties as needed.
<p>How do you know what methods and properties these objects support? Well,
you RTFM that comes with the applications, and you use Object browsers
that display a minimal documentation extracted from objects themselves
(actually from their type libraries). The Win32::OLE module comes with
Browser.html, a client-side dynamic html page. The perl code embedded in
this page uses Win32::OLE to extract information from type libraries, and
displays it in the html browser (IE required).
<p>A short example will illustrate</p>
<code>
#! perl -w
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
### open Word application and add an empty document
### (will die if Word not installed on your machine)
my $word = Win32::OLE->new('Word.Application', 'Quit') or die;
$word->{Visible} = 1;
my $doc = $word->Documents->Add();
my $range = $doc->{Content};
### insert some text into the document
$range->{Text} = 'Hello World from Monastery.';
$range->InsertParagraphAfter();
$range->InsertAfter('Bye for now.');
### read text from the document and print to the console
my $paras = $doc->Paragraphs;
foreach my $para (in $paras) {
print ">> " . $para->Range->{Text};
}
### close the document and the application
$doc->SaveAs(FileName => "c:\\temp\\temp.txt", FileFormat => wdFormatDocument);
$doc->Close();
$word->Quit();
</code>
<h4>Why use Win32::OLE</h4>
<br>You work on a win32 platform and you
want to tap into existing applications from your Perl scripts.
<br>You work on creating Automation components
and you want to use Perl to test them.
<h4>Why not use Win32::OLE</h4>
<br>You don't work on a win32 platform
<br>You do, but you prefered scripting language is VBScript (just kidding ;-)
<h4>Where is the doc, tuts and code</h4>
<br>The module and it's html doc are included in the ActiveState Perl installation.
Look up the TPJ article by Jan Dubois, the module's coauthor, for
an extended example.
Doc is also found on CPAN <a href="http://theoryx5.uwinnipeg.ca/CPAN/data/Win32-OLE/Win32/OLE.html">mirrors</a>
<br>If you want to study the module code, it is on <a href="http://search.cpan.org/search?dist=Win32-OLE-0.1402">CPAN</a>
(6700+ lines in ole.xs and 2500+ lines of perl in several packages - good reading).
<br>For introductory tutorials, check the <a href="http://www.roth.net/conference/perl/2000/Perl2000.ppt">ppt
presentation</a> and demos ( <a href="http://www.roth.net/conference/perl/2000/WordTest.pl">Word</a>,
<a href="http://www.roth.net/conference/perl/2000/Chart.pl">Excel</a>)
<br>Not enough ? You can find more short tutorials <a href="http://savage.net.au/Perl-tutorials/ole-xl-demo1.pl">down
under</a> ...
<p>
"Where Perl magic meets Windows"
Win32::OLE brings you the ability to control many win32 applications