tcl遍历列表中的项目时获得正则表达式匹配

Question

I am a newbie, and I'm having some trouble getting my tcl script working. I've searched around online, and can't seem to understand what I'm doing wrong. Here is what I wrote:

set list {f01-1 f01-2 f02-1 m01-1 m01-2 m02-1}
foreach item $list {
    if { [regexp {\w\d\d} $list match ] } {
        puts $match
    }
}

Here is the output I get:

f01
f01
f01
f01
f01
f01

However, this is what I would like to and expected to get:

f01
f01
f02
m01
m01
f02

Does anyone have any advice for getting what I expected?

Thank you ahead of time!

Answer 1

Your code snippet doesn't seem to match your actual code, but I'm guessing that $string there is the same thing as $list , which means you're re-running the regexp on the original string repeatedly, instead of on each item. Furthermore your regexp was wrong. The following should work:

set list {f01-1 f01-2 f02-1 m01-1 m01-2 m02-1}
foreach item $list {
    if { [regexp {\w\d+} $item match ] } {
        puts $match
    }
}

The notable difference here, besides fixing your regexp, is it's now running it on $item instead of on $list .

Answer 2

[regexp {\\w\\d\\d} $list match ] will try to find the first occurrence of the specified RE in the given list .

Instead you should do this:

[regexp {\\w\\d\\d} $item match ] which will check each item and prints if the RE is matched!