如何使用Perl将XML数据节点附加到现有文件中？

我有以下格式的目录列表

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

在每个合作伙伴目录中，都有一个具有唯一名称（Analytics.XML）的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>

---

请提出一些继续进行的想法

这是一个让您开始的存根：

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
    # ...
}

使用严格；
使用警告；
使用自动模具；
#遍历目录
对于我的$dir（grep{-d}）{
my$file=$dir.'/Analytics.xml'。
如果（！-e$文件）{
警告“找不到文件：$File\n”；
下一个
}
#使用XML:：Twig或XML:：LibXML处理XML
# ...
}

您真的需要向我们展示更多。例如，到目前为止你做了什么？现在，这读起来更多的是“做我的家庭作业”，而不是一个问题。请花点时间阅读并修改您的问题。

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
    # ...
}