Perl xml을 워드 문서로 변환 하시겠습니까?

Question

XML 문서를 파싱 중이므로 xml 콘텐츠를 태그가없는 일반 단어 콘텐츠로 변환하려고합니다.

예 : XML 파일 :

<title>Introduction</title> 
<sec>Welcome to this world</sec> 
<ref>Conclusion</ref> 

변환 단어 :

Introduction 
Welcome to this world 
Conclusion 

사전에 어떤 제안에 감사를드립니다하시기 바랍니다.

이 코드를 시도했지만 내용을 XML 파일에 정확히 씁니다.

use Win32::OLE; 
use Win32::OLE qw(in with); 
use Win32::OLE::Const 'Microsoft Word'; 
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them 
use Cwd; 
use File::Basename; 
system 'cls'; 
#use strict; 
use List::Uniq ':all'; 
use Sort::Versions; 
my $xmlfile = 'D:\file.xml'; 
my $cnt = _open_utf8($xmlfile); 
my $dir = dirname($xmlfile); 
my $basename = basename($xmlfile); 
my $wordsave = Win32::OLE->new('Word.Application', 'Quit') or die; 
    $wordsave->{Visible} = 1; 
    my $doc = $wordsave->Documents->Add(); 
    my $range = $doc->{Content}; 
    ### insert some text into the document 
    $range->{Text} = $cnt; 
    ### read text from the document and print to the console 
    my $paras = $doc->Paragraphs; 
    foreach my $para (in $paras) { 
     print ">> " . $para->Range->{Text}; 
    } 
    ### close the document and the application 
    $doc->SaveAs(FileName => 'd:\temp.docx', FileFormat => wdFormatDocument); 
    $doc->Close(); 
    $wordsave->Quit(); 
_save_utf8($dir.'\\out_'.$basename,$cnt); 

Answer 1

리처드가 언급 한 바와 같이 파서를 사용해야합니다. XML::XPath을 사용해보세요.

XML 파일에서 데이터를 추출하고 추출 된 데이터에서 Word 파일을 만드는 방법을 알려주는 this article on perlmonks을 확인하십시오.