Posted to tcl by thomas at Wed Nov 02 22:50:02 GMT 2011view raw

  1. proc cb_analyze { fileHandler } {
  2. gets $fileHandler data
  3. if { $data ne "" } {
  4. puts --$data
  5. }
  6. return 1
  7. }
  8.  
  9. if { [catch { set fileHandler [ open [file join "/tmp" "log.txt"] r ] } errorMsg ] } {
  10. puts "Error file ! $errorMsg"
  11. } else {
  12. fileevent $fileHandler readable [list cb_analyze $fileHandler]
  13. }
  14.  
  15. vwait forever