tcl/itcl-在带有两个参数的args输入列表上进行foreach迭代

我编写了以下代码，应该在args输入列表上进行迭代，每次迭代读取两个参数。问题是它没有像我写的那样工作。我查看了Tcl/Tk维基百科网页，但没有找到任何有用的建议。我可以用我写的方式（不转换成数组）吗

---

将

放入

，您只需要：

foreach {option value} $args {

---

请参阅位于

的文档，在中删除

，您只需要：

foreach {option value} $args {

请参阅文档中的一些提示。
而不是：

[string length $option] == 0

你也可以写：

$option == ""

在这种情况下，-strict选项是多余的，因为您已经跳过了空字符串。此外，您应该将选项放在“is integer”后面：

一些提示。
而不是：

[string length $option] == 0

你也可以写：

$option == ""

在这种情况下，-strict选项是多余的，因为您已经跳过了空字符串。此外，您应该将选项放在“is integer”后面：

什么是
Tcl/Tk维基百科网页
？什么是
Tcl/Tk维基百科网页
？