私はこれをします:
my @items = [];
sub pushItem {
my $itemId = "i" . sprintf("%d", $_[0]);
push(@items, $itemId);
}
sub popItems {
$itemsXml = "<key>items</key>\n<array>\n";
foreach (@items) {
$itemsXml .= "<string>$_</string>\n";
}
$itemsXml .= "</array>\n";
return $itemsXml;
}
pushItem(0);
pushItem(1);
pushItem(2);
print popItems();
私はこれを得る:
<key>items</key>
<array>
<string>ARRAY(0x7fa1730070d0)</string>
<string>i0</string>
<string>i1</string>
<string>i2</string>
</array>
もちろん問題は次のとおりです。
<string>ARRAY(0x7fa1730070d0)</string>