使用Perl解析XML元素和属性

use XML::LibXML;

# 创建一个XML解析器对象
my $parser = XML::LibXML->new();

# 解析XML文档
my $doc = $parser->parse_file('example.xml');

# 获取所有的元素节点
my @nodes = $doc->findnodes('//*');

# 遍历所有的元素节点
foreach my $node (@nodes) {
    # 获取元素名称
    my $name = $node->nodeName();

    # 获取所有的属性
    my @attrs = $node->attributes();

    # 遍历所有的属性
    foreach my $attr (@attrs) {
        # 获取属性名称和属性值
        my $attr_name = $attr->nodeName();
        my $attr_value = $attr->value();

        # 输出属性名称和属性值
        print "Attribute: $attr_name = $attr_value\n";
    }

    # 输出元素名称
    print "Element: $name\n";
}