use Win32::OLE qw(CP_UTF8); use Win32::OLE::Const 'Microsoft Word'; $Win32::OLE::CP = CP_UTF8; my $W = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application') || die ("couldn't create Word object"); $W->{'Visible'} = 1; my $document = $W->Documents->Open("D:\\mydoc.doc") || die("Unable to open document ", Win32::OLE->LastError()); print $document."\n";
In reply to Re: Win32::OLE and taint
by Generoso
in thread Win32::OLE and taint
by Michael Roberts
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |