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