M.C.P.C.

―むり・くり―プラスコミュニケーション(更新終了)


| トップページ |

2007年12月18日 00:01

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

このエントリーをはてなブックマークに追加 mixiチェック

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

投稿 大野 義貴 [Script] | |

トラックバック(0)

トラックバックURL: http://blog.dtpwiki.jp/MTOS/mt-tb.cgi/2317

コメントする