Posted to tcl by de at Wed Feb 25 17:48:10 GMT 2015view pretty

package require tdom

set xml {<rss version="2.0">
<channel>
<title>BLED- CE2 8-9 ans (orthographe-grammaire-conjugaisons)</title>
<link>https://1fichier.com/?t53txpunwt</link>
</channel>
</rss>}

set doc [dom parse $xml]
foreach channel [$doc selectNodes //channel] {
    puts "title: [$channel selectNodes string(title)]"
    puts "link: [$channel selectNodes string(link)]"
}