in tcl, how do I replace a line in a file?

Question

let\'s say I opened a file, then parsed it into lines. Then I use a loop:

foreach line $lines {}

inside the loop, for some lines, I want to

Answer 1

If this is Linux it'd be easier to exec "sed -i" and let it do the work for you.