Чак Богорад

Эта статья предназначена для тех, кто уже умеет сносно программировать на PERL, и хочет получить навыки работы с OLE Automation. В приводимых примерах использовался так называемый PERL-GS, который можно взять уже собранным, или собрать из исходных текстов на http://www.perl.com/CPAN/ (не путать с ActiveState PERL, доступным на http://www.activestate.com). Для работы с OLE Automation используется модуль Win32::OLE, который входит в библиотеку libwin32, также доступную с CPAN.

Модуль Win32::OLE (как и большинство других модулей) использует объектную модель. В PERL она организована очень просто: объект - всего лишь ссылка на HASH, в котором могут быть данные, ссылки на данные или ссылки на процедуры. Вызов "метода" - всего лишь разименование ссылки на HASH, еще одно разименование ссылки на процедуру и вызов этой процедуры. Подробнее об этом и массе других интересных вещей можно прочитать в книжке "Advanced PERL programming", которую написал Sriram Srinivasan. Купить ее можно здесь: http://www.amazon.com/exec/obidos/ASIN/1565922204/002-9864635-4316215 или в некоторых московских книжных магазинах (там, правда, она стоит чуть дороже).

Кратко опишу идеи OLE Automation, как я его понимаю. Сразу хочу предупредить - это может не иметь почти ничего общего с идеей его создателей. Итак, OLE Automation - это единый интуитивно понятный интерфейс, построенный по образу и подобию интерфейса всех windows-программ. Интерфейс объектный, то есть существуют объекты, их атрибуты и методы. Работая с ним, мы фактически имитируем работу с программой через её меню. Это гораздо удобнее, чем изучать для каждой программы ее собственный API. Так, показ WEB-страницы в MS IE и удаление старого письма из папки MS Outlook - одинаково примитивные и похожие операции.

Теперь к первому примеру. Это пример из жизни, задача состояла в том, чтобы преобразовать очень много (несколько сотен) документов из MS RTF в обычные текстовые файлы. Сразу замечу, что использовать самодельные преобразователи было нельзя, так как RTF - формат плохо документированный и непостоянный, поэтому едиственный надежный способ - использовать MS Word. Сначала рассмотрим, как эта задача решается при помощи MS Word. Мы загружаем файл ( File -> Open), затем сохраняем его как текстовый (File -> SaveAs -> DOS Text). Точно такие же действия производятся при помощи OLE Automation.

#!perl -w

# Всегда используем 'use strict' и параметр '-w' , чтобы избежать ошибок и
# облегчить оптимизацию.
use strict;

# Модуль 'Win32::OLE' объявляет нужные объекты.
use Win32::OLE;

# Модуль 'Win32::OLE:Const' объявляет нужные константы.
use Win32::OLE::Const 'Microsoft Word';

{
# Локальные переменные для имен входного и выходного файлов.
 my ($file_in, $file_out);

# Используем 't.rtf' в качестве имени файла, если не задано другое имя.
 $file_out = $file_in = $ARGV[0] ? $ARGV[0] : 't.rtf';

# Формируем имя выходного файла.
 $file_out =~ s/(.*\.).*/$1txt/;

# Создаем объект - 'программа Word'. 
# Если Word не был активен, он будет запущен.
 my $word = Win32::OLE->new('Word.Application', 'Quit');

# Создаем объект 'документ Word'. Обратите внимание - единственным
# параметром 'методу' Open является ссылка на HASH. При открытии файла
# можно указать разнообразные параметры.
 my $doc = $word->Documents->Open({
 FileName => $file_in,
 ConfirmConversions => 0,
 ReadOnly => 1,
 AddToRecentFiles => 0,
 Format => wdOpenFormatAuto});

# Теперь сохраняем файл так DOS Text.Обратите внимание - единственным
# параметром 'методу' SaveAs является ссылка на HASH.
 my $rc = $doc->SaveAs({
 FileName => $file_out,
 FileFormat => wdFormatDOSTextLineBreaks,
 AddToRecentFiles => 0});

# Закрываем документ.
 $rc = $doc->Close;

# Завершаем работу MS Word.
 $rc = $word->Quit;
};

Следующий пример тоже жизненный - удаление дублированных писем из папок MS Outlook. Дело в том, что у меня дома отвратительная телефонная линия, связь все время рвется, и Outlook не успевает забрать все письма из POP3-ящика. И каждый раз начинает сначала. Таким образом, накапливается огромное количество одинаковых писем, и их удаление - задача неприятная.

Используем Perl + OLE Automation. Перебираем все письма в папке, используем дату/время получения письма как ключ в HASH. В качестве элемента HASH заносим строку, полученную путем склеивания полей from/to/date/size. Если такая запись уже есть, удаляем текущее письмо. Аналогично для всех остальных папок. У меня все mail-list'ы складываются в подпапки папки 'Листы разные'.

#!perl -w

# Всегда используем 'use strict' и параметр '-w' , чтобы избежать ошибок и
# облегчить оптимизацию.
use strict;

# Используем модуль национальной поддержки.
use locale;


# Модуль 'Win32::OLE' объявляет нужные объекты.
use Win32::OLE;

# Модуль 'Win32::OLE:Const' объявляет нужные константы.
use Win32::OLE::Const 'Microsoft Outlook';

{ #main
# Сохраняем текущую кодовую старницу.
 my $cp = `chcp`;

# Выделяем число из 'Active code page: 866'
 chomp($cp);
 $cp =~ s/.*?(\d+).*/$1/;

# Временно устанавливаем Windows CP.
 `chcp 1251`;

# Создаем объект 'программа Outlook'.
 my $olApp = Win32::OLE->new('Outlook.Application');

# Получаем handle(MAPI).
 my $nameSpace = $olApp->GetNameSpace('MAPI');

# Получаем handle папки 'Personal Folders'. ВНИМАНИЕ: в русском Outlook'е
# она называется 'Личные папки'.
 my $persFolder = $nameSpace->Folders('Personal Folders');

# Получаем handle папки 'Листы разные'.
 my $listsFolder = $persFolder->Folders('Листы разные');

# Получаем handles всех ее подпапок. 
# Обратите внимание, что 'метод' 'Folders'
# возвращает scalar, а не list!
 my $listFolders = $listsFolder->Folders();

# Перебираем сообщения в каждой подпапке.
 my $curFolder;

# Чтобы получить список всех handles 
# всех подпапок используется функция 'in'.
 foreach $curFolder (in $listFolders)
 {
# Выводим имя обрабатываемой папки
 print $curFolder->Name(), qq(\n);

# Заводим HASH, где будут храниться ключи.
 my %dupes;

# Перебираем все письма в подпапке. 'Items' возвращает scalar.
 my $curItems = $curFolder->Items();
 my $curItem;

# Снова используем функцию 'in' для получения list'а.
 foreach $curItem (in $curItems)
 {
# Берем время прихода письма.
 my $msgTime = $curItem->ReceivedTime();

# Склеиваем остальные поля.
 my $msgID = $curItem->SentOnBehalfOfName() .
 $curItem->To() .
 $curItem->SentOn() .
 $curItem->Size();

# Проверяем, встречалось ли уже такое письмо.
 if (defined($dupes{$msgTime}) and ($dupes{$msgTime} eq $msgID))
 {
# Если встречалось - стираем текущее письмо.
 $curItem->Delete();
 print qq(Deleted $msgID\n);
 }
 else
 {
# В противном случае заполняем HASH.
 $dupes{$msgTime} = $msgID;
 };
 };
 }; # foreach

 print qq(Quitting!\n);

# Здесь можно выйти из MS Outlook.
# $olApp->Quit();

# Восстанавливаем исходную CODEPAGE.
 system("chcp $cp");
 exit(0);
} #main

Еще одной чрезвычайно интересной задачей является написание скрипта, который бы посылал напоминания о грядущих событиях на пейджер. Со временем и такой несомненно появится.

В заключение хочу обратить внимание на источники информации о структуре объектов OLE Automation в MS Office. В принципе, все необходимое есть в HELP for Visual basic. Кое-что есть в help-файлах, лежащих в папке \MOREHELP на CD с MS Office.