如何使用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 
    # ... 
}