Posted to tcl by nscerqueira at Thu Mar 14 00:11:18 GMT 2013view raw

  1. proc Go {cpu} {
  2. set cpuUser [string range [lindex $cpu 2] 0 [expr [string length [lindex $cpu 2]] -2]]
  3. set cpuSys [string range [lindex $cpu 4] 0 [expr [string length [lindex $cpu 4]] -2]]
  4. set cpuTotal [expr $cpuUser + $cpuSys]
  5. puts " $cpu : CPU Total - $cpuTotal"
  6. set ::cpu $cpuTotal
  7. puts $cpu
  8. }
  9.  
  10. set msg "\"CPU usage\""
  11. #set fid [open "|top -l 2 | grep $msg" r]
  12. set fid [open "|ls -la" r]
  13. fconfigure $fid -blocking 0
  14. fileevent $fid readable [Go [read $fid]]
  15.  
  16. vwait done
  17.  
  18. close $fid