如何将XML属性转换为Perl中的元素？

use XML::LibXML;

# 加载XML文件
my $xml = XML::LibXML->load_xml(location => 'example.xml');

# 获取根节点
my $root = $xml->documentElement();

# 遍历XML节点
foreach my $node ($root->findnodes('//*')) {
    # 获取节点的属性
    my %attributes;
    foreach my $attr ($node->attributes()) {
        $attributes{$attr->name()} = $attr->value();
    }
    
    # 创建Perl元素
    my $element = {
        name => $node->nodeName(),
        attributes => \%attributes,
        children => [],
    };
    
    # 添加属性值
    foreach my $key (keys %attributes) {
        $element->{$key} = $attributes{$key};
    }
    
    # 将元素添加到父节点的子节点列表中
    # 你可以根据实际需求，选择合适的数据结构存储元素
    
    # 例如，将元素添加到数组中
    push @{$parent->{children}}, $element;
    
    # 或者，将元素添加到哈希中
    $parent->{$element->{name}} = $element;
}