Posted to tcl by de at Fri Jan 04 17:53:07 GMT 2008view raw

  1. package require tdom
  2.  
  3. set xmlsource {<?xml version='1.0' encoding='UTF-8'?>
  4. <feed xmlns='http://www.w3.org/2005/Atom' xmlns:openSearch='http://a9.com/-/spec/opensearchrss/1.0/' xmlns:gml='http://www.opengis.net/gml' xmlns:georss='http://www.georss.org/georss' xmlns:media='http://search.yahoo.com/mrss/' xmlns:yt='http://gdata.youtube.com/schemas/2007'>
  5. <id>http://gdata.youtube.com/feeds/api/playlists/DC33DBCFA997445A</id>
  6. <updated>2008-01-03T06:59:22.000-08:00</updated>
  7. <title type='text'>Media Magic Public Playlist</title>
  8. <subtitle type='text'>Media Magic Public Playlist</subtitle>
  9. <logo>http://www.youtube.com/img/pic_youtubelogo_123x63.gif</logo>
  10. <link rel='alternate' type='text/html' href='http://www.youtube.com/view_play_list?p=DC33DBCFA997445A'/>
  11. <link rel='http://schemas.google.com/g/2005#feed' type='application/atom+xml' href='http://gdata.youtube.com/feeds/api/playlists/DC33DBCFA997445A'/>
  12. <link rel='self' type='application/atom+xml' href='http://gdata.youtube.com/feeds/api/playlists/DC33DBCFA997445A?start-index=1&amp;max-results=25'/>
  13. <author>
  14. <name>rgallimore</name>
  15. <uri>http://gdata.youtube.com/feeds/api/users/rgallimore</uri>
  16. </author>
  17. <generator version='beta' uri='http://gdata.youtube.com/'>YouTube data API</generator>
  18. <openSearch:totalResults>3</openSearch:totalResults></feed>}
  19.  
  20. set doc [dom parse $xmlsource]
  21. $doc selectNodesNamespaces \
  22. [list openSearch http://a9.com/-/spec/opensearchrss/1.0/ \
  23. atom http://www.w3.org/2005/Atom]
  24. puts [$doc selectNodes string(/atom:feed/openSearch:totalResults)]
  25.  
  26.