[问题求助] perl解析singer.xml报错

netdzb

<?xml version="1.0" encoding="UTF-8"?>
<playlist version="1" xmlns="http://xspf.org/ns/0/"
xmlns:vlc="http://www.videolan.org/vlc/playlist/ns/0/">
        <title>歌手姓名</title>
        <trackList>
                   <track>
                                <album>Winnie Ho - Finally Chapter 01 (2016)
/</album>
                                <title>01 - Me and Myself.mp3</title>
                                <location>位置1</location>
                                <duration>172000</duration>
                   </track>
                   <track>
                                <album>Winnie Ho - Finally Chapter 01 (2016)
/</album>
                                <title>02 - Keep in Touch.mp3</title>
                                <location>位置2</location>
                                <duration>200000</duration>
                   </track>
                   <track>
                                <album>Winnie Ho - Finally Chapter 01 (2016)
/</album>
                                <title>03 - Missing.mp3</title>
                                <location>位置3</location>
                                <duration>207000</duration>
                   </track>
         </trackList>
</playlist>

=================

1楼是singer.xml

netdzb

回复 1# netdzb

use strict;
use warnings;

use XML::Simple;
use Data:: Dumper;

use 5.010;
my $xmlfile = "singer.xml";
my $xml = XML::Simple->new(KeyAttr=>"", ForceArray => 1);

my $tree = $xml->XMLin($xmlfile);
say Dumper($tree);