是否可以对字符串中的每个字符进行 foreach 循环?

a_r*_*mer 1 tcl

我想为字符串中的每个字符创建一个 foreach 循环。

我尝试过使用 just foreach,但在中断之前只会循环一次。例如:

set string "a string"
foreach character $string {                   
    puts "a character was counted"
}
Run Code Online (Sandbox Code Playgroud)

我预计上面的代码会执行puts "a character was counted"8 次(对于“字符串”中的每个字符),但它只执行puts "a character was counted"一次

gle*_*man 5

您需要显式地将字符串分解为字符列表:

foreach char [split $string ""] {...
Run Code Online (Sandbox Code Playgroud)