PerlXML：简单地读取XML对，并在每个XML对上执行某些操作

我有一个XML文件，其中包含以下部分：

<cptasks>
 <copy file="file1.txt" to="folder1/folder21" />
 <copy file="file2.txt" to="folder1/folder33" />
 <copy file="file3.txt" to="folder1/folder4" />
 <copy file="file4.txt" to="folder1/folder1" />
</cptasks>

在这个特定的部分中，我只需要解析file/to对，并对它们运行一个函数，即

some_func_name(<file_value>,<to_value>)

一些函数名（，）

我该怎么做

先谢谢你,

使用XML:：Simple；
use XML::Simple;
my $cptasks = XMLin(qq~
<cptasks>
<copy file="file1.txt" to="folder1/folder21" />
<copy file="file2.txt" to="folder1/folder33" />
<copy file="file3.txt" to="folder1/folder4" />
<copy file="file4.txt" to="folder1/folder1" />
</cptasks>
~
);


for my $copy (@{$cptasks->{copy}}) {
    some_func_name($copy->{file}, $copy->{to});
}

我的$cptasks=XMLin（qq~
~
);
对于我的$copy（@{$cptasks->{copy}）{
一些函数名（$copy->{file}，$copy->{to}）；
}

您需要先尝试一下自己，然后在遇到问题时提问。“为我编写代码”类型的问题通常是封闭式的。@TLP是有道理的，但有时一个例子值一千个perldocs——特别是如果你的经验很少的话。也就是说，我建议你阅读perldoc（顺便说一句，它也有一些很好的例子）。给出的答案解决了你的问题吗？如果是这样的话，别忘了接受它，让其他有同样问题的人知道解决方案有效（并满足我神经质的批准需求：）。