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

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