Posted to tcl by de at Wed Feb 25 17:59:42 GMT 2015view pretty

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)]"
}