Здравствуйте.
Подскажите пожалуйста, как можно перезаписать извеcтную строку в файле?
Я делаю вот так, может надо по-другому?
#file:
#bump
#pmub
proc readFile {} {
set fl [open "[pwd]/file"]
set data [read $fl]
close $fl
writeFile $data
}
proc writeFile {data} {
set data [lreplace $data 0 0 foo]
set fl [open "[pwd]/file" w+]
foreach w $data {
puts $fl $w
}
flush $fl
close $fl
exit
}
readFile
