TCL 正则表达式包含 word 和 var 的整个表达式

Question

I got a list of strings. I want to use it to create new lists containing strings with matching templates: *ram*$key* when ram is a known expression and $key is a variable in a foreach iteration. I tried running the following code:

set key_words {adr addr wr_data din}
foreach key $key_words {
set ram_key [regexp -all -inline  ".*ram.*$key.*" $list]
puts "$ram_key";
}

but it just returns all the list as is

Answer 1

The problem is that you are using .* in your pattern and this matches whole list variable. Try using a more specific pattern. See my example ("ram" is "pro"):

set list "The problem is not having a real pro33blem to pronounce"
set key_words {adr addr blem din noun}
foreach key $key_words {
    set ram_key [regexp -all -inline  "pro\\d*$key" $list]
    puts "\n$key: Found [llength $ram_key] items"
    puts "$ram_key";
}

and the result is:

adr: Found 0 items


addr: Found 0 items


blem: Found 2 items
problem pro33blem

din: Found 0 items


noun: Found 1 items
pronoun