RosettaCodeData/Task/CSV-data-manipulation/Tcl/csv-data-manipulation-2.tcl

set f [open example.csv r]
puts "[gets $f],SUM"
while { [gets $f row] > 0 } {
   puts "$row,[expr [string map {, +} $row]]"
}
close $f
Initial data commit 2023-07-01 11:58:00 -04:00			`set f [open example.csv r]`
			`puts "[gets $f],SUM"`
			`while { [gets $f row] > 0 } {`
Data update 2026-02-01 16:33:20 -08:00			`puts "$row,[expr [string map {, +} $row]]"`
Initial data commit 2023-07-01 11:58:00 -04:00			`}`
			`close $f`