Posted to tcl by de at Wed Feb 25 17:59:42 GMT 2015view raw
- package require tdom
- set doc [dom parse [::tDOM::xmlReadFile "path/to/you/xml"]]
- foreach channel [$doc selectNodes //channel] {
- puts "title: [$channel selectNodes string(title)]"
- puts "link: [$channel selectNodes string(link)]"
- }