How to return 2 values from a proc

[mithunmo]

Hi All,

Please someone let me know how can I return more than one value from proc in tcl ?


Thanks and Regards,
Mithun

 

[mikrom]

Your procedure can return simply a list of values.
Example pok.tcl:

proc cons_list {x y z} {
  # construct list of 3 elements
  return [list $x $y $z]
}

# running proc
set result [cons_list 1 "Hello" 3]
# result
puts "result = {$result}"
puts "1.part of result = [lindex $result 0]"
puts "2.part of result = [lindex $result 1]"
puts "3.part of result = [lindex $result end]"

Result:

D:\>tclsh85 pok.tcl
result = {1 Hello 3}
1.part of result = 1
2.part of result = Hello
3.part of result = 3