Code:
... add this inside your proc ...# init search variables, create empty listsset search [list] ; set search_a [list] ; set search s [list]# iterate user input, parse out switchesforeach word [split $text] {# parse switches with the switch statement. oh the irony ;)# [string range $word 3 end] removes the switch itself from# the word before adding the rest of the word to those lists.switch -glob -- $word {"-a=*" { lappend search_a [string range $word 3 end] }"-s=*" { lappend search_s [string range $word 3 end] }default { lappend search $word }}}# join the search, search_a, and search_s lists into strings we can useset search [join $search] ; set search_a [join $search_a] ; set search_s [join $search_s]# Use these 3 variables in your script now.# $search = users search terms# $search_a = all switches starting with -a combined# $search_s = all switches starting with -s combined
