В Windows вам лучше использовать COM-интерфейсы для доступа к функциям Word.

Если вы хотите сделать это кроссплатформенным, подумайте о выполнении & quot; catdoc & quot; или libwv.

Если вы не работаете в Windows, я думаю, что лучшим способом будет сначала преобразовать его.

Если вы не используете Windows и не имеете доступа кWin32 :: OLE, ты можешь использоватьOpenOffice для конвертации документов.

Вы можете заключить скрипт по ссылке в вашу Perl-программу. Хотя ссылка начинается с PDF, если вы читаете на нем, можно преобразовать его в текст. Также смэтот стековый пост о преобразовании файлов doc и docx.

Документы Word больше не являются плоскими файлами. Найдите .docx, переименуйте его с расширением .zip, и вы можете открыть его и покопаться в нем, чтобы почувствовать, как все устроено. Я бы в целом согласился, хотя Microsoft предоставила способы сделать это уже.

Вы можете использовать Win32 :: OLE, если скрипт должен работать на Windows с установленным Word.

Какую платформу вы используете? возможноAntiword может быть вызван?

use Win32::OLE;
use Win32::OLE::Enum;

$document = Win32::OLE -> GetObject($ARGV[1]);
open (FH,">$ARGV[0]");

print "Extracting Text ...\n";

$paragraphs = $document->Paragraphs();
$enumerate = new Win32::OLE::Enum($paragraphs);
while(defined($paragraph = $enumerate->Next()))
{
    $style = $paragraph->{Style}->{NameLocal};
    print FH "+$style\n";
    $text = $paragraph->{Range}->{Text};
    $text =~ s/[\n\r]//g;
    $text =~ s/\x0b/\n/g;
    print FH "=$text\n";
}

украден изВот