xml - Perl XML：単純な読み取りxmlペアを実行し、それぞれに対して何かを実行します

Question

以下のセクションを含む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>)

どうやってやるの？

前もって感謝します;

Answer 1

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});
}