Perl 读取 word 文档并打印

2015/12/14 43668

清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>> 

#!/usr/bin/perl -w

use Win32::OLE;

$filename = 'wordFile.doc';

$doc = Win32::OLE->GetObject( $filename ) 
    or die "Cannot load file $filename from Word, $!";

# Print document.
$doc->PrintOut();