如何使用Perl將XML數據節點附加到現有文件？

Question

我有以下格式

/temp/partner1 
/temp/partner2 
.. 
.. 
/temp/partnern 

在每個合作伙伴目錄的目錄列表，XML文件將提供獨特的名稱（Analytics.xml）。

XML文件：

<?xml version="1.0" encoding="utf-8"?> 
<root> 
    <GeneralParameters> 
     <PreviousX>250</PreviousX>  
     <PreviousY>37</PreviousY>  
     <NextX>169</NextX> 
     <NextY>37</NextY> 
     <CancelX>88</CancelX> 
     <CancelY>37</CancelY>  
     <Height>399</Height>  
     <Width>513</Width>  
     <bgColor>EFEBDF</bgColor>  
     <GetServer>http://pipoffers.apnpartners.com/PIP/Server.jhtml?partner_id={partnerid}&amp;language={locale}</GetServer>  
     </Parameters>  
    </GeneralParameters>  

</root> 

我想分析中的所有合作伙伴目錄的XML文件，並使用perl腳本

http://pipoffers.apnpartners.com/PIP/Server.jhtml?partner_id={partnerid}&language={locale}&version={version} 

的GetServer節點追加到下面的值，請提出一些想法繼續

Answer 1

這是一個短文，讓你開始：

use strict; 
use warnings; 
use autodie; 

# Iterate over directories 
for my $dir (grep {-d} </temp/partner*>) { 
    my $file = $dir . '/Analytics.xml'. 

    if (!-e $file) { 
     warn "File not found: $file\n"; 
     next; 
    } 

    # Use XML::Twig or XML::LibXML to process the xml 
    # ... 
}