Posted to tcl by miguel at Sat Mar 05 19:24:57 GMT 2011view raw
- set file LOG.txt
- set chan [open $file r]
- set lines [split [read $chan] \n]close $chan
- set outfile [open /your/first/file w]
- foreach line $lines {
- puts $outfile $line
- if {[string match m* $line]} {
- close $outfile
- set outfile [open /your/second/file w]
- }
- }