Posted to tcl by cjo at Sat Sep 09 20:54:00 GMT 2017view pretty

package require tdom
dom parse [exec -ignorestderr sudo lshw -xml] doc
$doc documentElement root
puts [$root selectNodes {string(node/serial)}]