1: #! /usr/bin/tcl -n 2: 3: set filename [lindex $argv 0] 4: if {$filename==""} { 5: puts stderr "Usage: $argv0 <file>" 6: exit 1 7: } 8: if {![file exists $filename]} { 9: puts stderr "No such file: $filename." 10: exit 1 11: } 12: 13: set cnt 0 14: set fid [open $filename r] 15: set osuf [file extension $filename] 16: set opre [file rootname $filename] 17: set ofid [open $opre-$cnt$osuf w] 18: while {![eof $fid]} { 19: gets $fid ln 20: if {[regexp -nocase {^CHAPTER} $ln]} { 21: incr cnt 22: close $ofid 23: set ofid [open $opre-$cnt$osuf w] 24: } 25: puts $ofid $ln 26: } 27: close $ofid 28: close $fid |