Users

Entry XML for user1 apps:login for user1 apps:login for user2 Entry XML for user2 apps:login for user1 apps:login for user2 ##

##

Entry XML for user1
   apps:login for user1
Entry XML for user2
   apps:login for user2

##

##

#!/usr/bin/perl

use XML::LibXML;

my $content = do { local($/); ; };

$parser = XML::LibXML->new();
$doc    = $parser->parse_string($content);

my $xc = XML::LibXML::XPathContext->new();
$xc->registerNs( atom       => "http://www.w3.org/2005/Atom" );
$xc->registerNs( app        => "http://www.w3.org/2007/app" );
$xc->registerNs( gd         => "http://schemas.google.com/g/2005" );
$xc->registerNs( gcontact   => "http://schemas.google.com/contact/2008" );
$xc->registerNs( batch      => "http://schemas.google.com/gdata/batch" );
$xc->registerNs( openSearch => "http://a9.com/-/spec/opensearchrss/1.0/" );

foreach my $entry ( $xc->findnodes( '/atom:feed/atom:entry', $doc ) ) {
    print "entry = '", $entry->toString(1), "'\n";

    my @logins = $xc->findnodes( "//apps:login", $entry );
    print join( "\n", @logins ), "\n";
}


__END__


  https://apps-apis.google.com/a/feeds/mst.edu/user/2.0
  1970-01-01T00:00:00.000Z
  
  Users
  
  
  
  
  1
  
    https://apps-apis.google.com/a/feeds/mst.edu/user/2.0/user1
    1970-01-01T00:00:00.000Z
    
    user1
    
    
    
    
    
    
    
  
  
    https://apps-apis.google.com/a/feeds/mst.edu/user/2.0/user2
    1970-01-01T00:00:00.000Z
    
    user2