6 lines
133 B
Tcl
6 lines
133 B
Tcl
set f [open example.csv r]
|
|
puts "[gets $f],SUM"
|
|
while { [gets $f row] > 0 } {
|
|
puts "$row,[expr [string map {, +} $row]]"
|
|
}
|
|
close $f
|