有沒有在Perl中檢查文檔是否有密碼保護的方法

Question

在打開任何word或excel文檔之前，我想事先知道文檔是否受密碼保護，如果是這樣，我想跳過它。

我使用Win32 :: OLE打開文件。

Answer 1

一種方法是嘗試使用虛擬密碼打開文檔。

以下是我試過的方法。

my $Word = Win32::OLE->new('Word.Application'); 

if(!$Word){ 
    # Word can't be opened, exit or return false 
} 

my $Doc; 
eval{$Doc = $Word->Documents->Open("Path to your doc",undef,undef,undef,"thisIsPassword");}; 
if($@){ 
    # Document opening failed, exit or return false 
} 
if(!$Doc){ 
    # File doesn't exists, exit or return false 
} 

my $var = Win32::OLE->LastError() ; 
if($var){ 
    # File may be password protected, exit or return false 
} 
unless ($Doc eq '') { 
    # Do whatever... 
}