friends

friends ahbei http://api.douban.com/people/1000001 1 2 114 http://api.douban.com/people/1010394 Engo http://www.douban.com/group/topic/3750385/ beijing akin http://api.douban.com/people/1276180 wo ??????????????? beijing movie007wn ##

##

my $xml = XML::XPath->new( xml => $string); 
my $nodeset = $xml->findnodes('//entry'); 
foreach my $node ( $nodeset->get_nodelist){ 
print $node->findvalue('//title'),"\n"; 
} 

##

##

my $xml = XML::LibXML->new->parse_string( $string); 
my @nodeset = $xml->find('//entry'); 
print Dumper @nodeset; 

##

##

my $node = XML::LibXML->new->parse_string($string);
my $xml = XML::LibXML::XPathContext->new( $node);
$xml->registerNs('atom','http://www.w3.org/2005/Atom');
my @nodeset = $xml->findnodes('//atom:entry');
print $xml->findvalue('//atom:id',$nodeset[0]);