Posted to tcl by evilotto at Mon Mar 18 17:56:30 GMT 2013view pretty

set command [lindex $argv 0]
foreach {flag value} [lrange $argv 1 end] {
    switch -exact -- $flag {
        -f - --firstname {set firstname $value}
        -l - -lastname   {set lastname $value}
        -g - --gender    {set gender $value}
        default {error "unknown flag"}
    }
}
eval $command