Help With Wildcards In a loop.

[CoMMy]

This is my problem.

Code: Select all

foreach binding [binds] {
set bindtype [lindex $binding 0]
set bindattr [lindex $binding 1]
set bindname [lindex $binding 2]
set bindhits [lindex $binding 3]
set bindproc [lindex $binding 4]
if {[string match [string tolower $bindtype] [string tolower msg]]} {
unbind $bindtype $bindattr $bindname $bindproc }}

Where it says [string tolower msg] I want to change msg into
msg_* but it doesnt work.

Can you help me find this?
Basically i want something to select every bind that has a msg_ proc.

Thanks

[CoMMy]

Anyone?

[Cucumber]

Howdy,

i think you've got your string match params switched. it should be [string match pattern string] and it seems you have [string match string pattern]

also change msg to msg* in your pattern



\\//_

[caesar]

Instead of using two "string tolower" in a "string match" better use "string equal -nocase" directly. Example:
if {[string equal -nocase $foo $bar]} { # do something }

[stdragon]

Except he's trying to do wildcard matching, so string equal won't work.

Commy, the other problem is that it sounds like you want to match the proc name (msg_*) but the code currently matches bind type (msg, msgm, pub, etc). So you have two things to change.

[CoMMy]

Thanks for that stdragon. I missed it. but code still doesnt work.
It doesnt give out any errors but it doesnt unbind!!!

this is what we have.

Code: Select all

foreach binding [binds] { 
set bindtype [lindex $binding 0] 
set bindattr [lindex $binding 1] 
set bindname [lindex $binding 2] 
set bindhits [lindex $binding 3] 
set bindproc [lindex $binding 4] 
if {[string match [string tolower $bindproc] [string tolower msg_*]]} { 
unbind $bindtype $bindattr $bindname $bindproc }}

[stdragon]

That was one thing to change, the other is what Cucumber said hehe. You have your arguments mixed up for string match.

[CoMMy]

Thanks man. That did the trick!