Posted to tcl by miguel at Sat Mar 05 19:24:57 GMT 2011view raw

  1. set file LOG.txt
  2. set chan [open $file r]
  3. set lines [split [read $chan] \n]close $chan
  4.  
  5. set outfile [open /your/first/file w]
  6.  
  7. foreach line $lines {
  8. puts $outfile $line
  9. if {[string match m* $line]} {
  10. close $outfile
  11. set outfile [open /your/second/file w]
  12. }
  13. }