Posted to tcl by dkf at Thu Feb 25 11:03:31 GMT 2010view raw

  1. proc process {in} {
  2. return "processed results from $in go here"
  3. }
  4.  
  5. while {[gets stdin line] >= 0} {
  6. puts stdout [process $line]
  7. }
  8. exit