NTFS 上のファイルの上で右クリック->[プロパティ]->[概要]で得られるタイトルなどの情報を Perl で取得する方法を教えてください。

50pt

URL は参考程度に。

1. DSOFILE.EXE（ プロパティ取得用 COM オブジェクト）を入手します。

　[MS] Dsofile.exe Lets You Edit Office Document Properties from Visual Basic and ASP

2. Perl から Win32::OLE を利用して COM 呼び出しを行います。

「DSOleFile」オブジェクトを利用することで、プロパティが取得できます。

　Perl / Simple prob changing office doc property

use Win32::OLE;

use File::Spec;

my $PropertyReader = Win32::OLE->new(’DSOleFile.PropertyReader’, ’Quit’);

my $directory = ”c:￥￥temp”;

opendir(DNAME, $directory) || die ”Unable to open the requested directory: $directory￥n”;

while( my $filename = readdir( DNAME ) )

{

next if ($filename eq ’.’ or $filename eq ’..’);

my $fullfilename = File::Spec->catdir($directory,$filename);

my $properties = $PropertyReader->GetDocumentProperties($fullfilename) || die(”Unable read file properties for ’$fullfilename’ ”, Win32::OLE->LastError());

print ”File ’$filename’ --- Title property is ’” . $properties->{title} .”’￥n”;

}

closedir(DNAME);