how to create tcl proc with hyphen flag arguments

Question

Im searching all over the internet , i guess im searching not the right keywords i tried most of them :)

i want to create in tcl/bash a proc with hyphen flags to get

Answer 1

With array set, we can assign the parameters and their values into an array.

proc getInfo {args} {
    # Assigning key-value pair into array
    # If odd number of arguments passed, then it should throw error
    if {[catch {array set aInfo $args} msg]} {
        return $msg
    }
    parray aInfo; # Just printing for your info
}


puts [getInfo -name Dinesh -age 25 -id 974155]

will produce the following output

aInfo(-age)  = 25
aInfo(-id)   = 974155
aInfo(-name) = Dinesh