- use XML::Simple;
- my $simple = XML::Simple->new(); # initialize the object
- my $tree = $simple->XMLin( './data.xml' ); # read, store document
- print "The user prefers the font " . $tree->{ font }->{ name } .
- " at " . $tree->{ font }->{ size } . " points.\\n";
- #该片段来自于http://www.codesnippet.cn/detail/27112012664.html
来源: http://www.codesnippet.cn/detail/27112012664.html