Posted to tcl by evilotto at Wed Nov 02 22:59:33 GMT 2011view raw

  1. #!/usr/bin/env tclsh8.5
  2.  
  3. set fn [lindex $argv 0]
  4. proc ctime {fn} {
  5. file stat $fn stat
  6. return $stat(ctime)
  7. }
  8. set ct [ctime $fn]
  9.  
  10. set f [open $fn]
  11. seek $f 0 end
  12. while 1 {
  13. after 1000
  14. set b [read $f]
  15. puts "got $b"
  16. if {[tell $f] > [file size $fn]} {
  17. puts "truncated or recreated. Reopening"
  18. close $f
  19. set ct [ctime $fn]
  20. set f [open $fn]
  21. }
  22. }
  23.