ActivePerlのWin32::OLEでAcrobatを起動して/Creator,/Producerを取得

Tweet

ActivePerlのWin32::OLEでAcrobatを起動してメタデータの/Creator,/Producerを取得します。

Filename: getmetadata.pl

use strict;
use warnings;
use Win32::OLE;
 
my $file = 'D:\hoge.pdf';
 
my $app = Win32::OLE->GetActiveObject('AcroExch.App') 
  || Win32::OLE->new('AcroExch.App');
$app->show(); 
 
my $avdoc = Win32::OLE->new('AcroExch.AVDoc');
$avdoc->Open($file, '');
$avdoc->BringToFront();
my $pddoc = $avdoc->GetPDDoc();
print $pddoc->GetInfo("Creator" )."\n";
print $pddoc->GetInfo("Producer")."\n";
 
$app->exit(); 
 
exit;

これをネット入稿のアップローダに接続すると、アップロードが終了したとたんAcrobatが起動して、PDF変換の一覧 - DTPWiki [dtpwiki.jp]の情報と照らし合わせて、あらかじめ処理したくないPDFだったら拒否るとかできるんじゃないでしょうか。

うちは入稿システムLinuxだからできません＞＜

参考：
http://pdf-file.jugem.jp/
http://dererumnatura.us/archives/2006/03/texniccenter-an.html

2007.12.18 00:01 投稿　大野 義貴 [Script] | 固定リンク |