Forum OpenACS Q&A: Response to help with a regexp

Collapse
5: Response to help with a regexp (response to 1)
Posted by Ronaldo Carpio on 01/19/01 04:33 AM
First, stick the accepted commands into an array:
foreach command $accepted_command_list {
  set acceptedCommands($command) 1
}
foreach {match command} [regexp -all -inline {[(w*)[^]]*]} $mystring] {
  if {![info exists acceptedCommands($command)]} {
    error "$command is not an accepted command"
  }
}