Posted to tcl by evilotto at Wed Nov 02 22:59:33 GMT 2011view raw
- #!/usr/bin/env tclsh8.5
- set fn [lindex $argv 0]
- proc ctime {fn} {
- file stat $fn stat
- return $stat(ctime)
- }
- set ct [ctime $fn]
- set f [open $fn]
- seek $f 0 end
- while 1 {
- after 1000
- set b [read $f]
- puts "got $b"
- if {[tell $f] > [file size $fn]} {
- puts "truncated or recreated. Reopening"
- close $f
- set ct [ctime $fn]
- set f [open $fn]
- }
- }