Foreach выдает ошибку: неправильно # args: в TCL должно быть "foreach список varList? Список varList ...? Команда"

Question

У меня есть простой цикл foreach в коде .tcl, он выдает ошибку, и я не могу понять, что не так. Я попытался добавить / перед $ и все равно получил тот же результат.

set nodes "NODE1 NODE2"        
foreach node $nodes{
    PINS_DOC::DSC $node(mcemonInterface) $node(ipAddr) 1 ENTERED -timeout 300
}

Answer 1

Кроме того, чтобы исправить пропущенное пространство после $ узлов в foreach и угадывание массивов NODE1 и NODE2 хорошо определены (вы можете проверить это с помощью команды parray ), вы можете сделать

PINS_DOC::DSC [set $node\(mcemonInterface)] [set $node\(ipAddr)] 1 ENTERED -timeout 300

Подробнее о переменных разыменования .

Saludos