etaf/[ Tcl ] Read file to variable

## [ Tcl ] Read file to variable
#!/usr/bin/tclsh
set fp [open "tmp" r]
while {-1 != [gets $fp line]} {
    puts "The current line is '$line'."
    set vs [split $line " "]
    set a [lindex $vs 0]
    set b [lindex $vs 1]
    puts "$a + $b = [expr $a+$b]"
}
	#!/usr/bin/tclsh
	set fp [open "tmp" r]
	while {-1 != [gets $fp line]} {
	puts "The current line is '$line'."
	set vs [split $line " "]
	set a [lindex $vs 0]
	set b [lindex $vs 1]
	puts "$a + $b = [expr $a+$b]"
	}