TCL прочитать переменную построчно

[fornike]

Добрый день!

Вот два дня уж не нагуглю решение. Есть у меня переменная, получаю её так(в экспекте):

Код: Выделить всё

send "sh run | i ip dhcp pool\r"
expect "#"
set dhcppool $expect_out(buffer)

Т.е. собираю все дхцп пулы с циски, сую в переменную dhcppool, они в переменной находятся в виде нескольких строк вроде того:

Код: Выделить всё

ip dhcp pool LAN
ip dhcp pool voip
ip dhcp pool printer

Далее мне надо в каждый зайти и прописать в нем одну строчку. На ум дальше просится foreach вроде того:

Код: Выделить всё

foreach i $dhcppool { send "ляляля\r" }

Но он зараза читает переменную пословно, а не построчно. Подскажите как мне из переменной $dhcppool каждую строчку прочитать в цикле?

[/dev/random]

Shell

$ man n split

[fornike]

Это в TCL такая команда??

[/dev/random]

Это в TCL такая команда??

Команда split - в TCL. man n split - это в командной строке, выведет руководство по TCL-команде split (если соответствующие маны установлены). В этом рукводстве есть пример, который почти идеально совпадает с вашей задачей.

[-sanches-]

Это в TCL такая команда??

Код: Выделить всё

foreach i [split $dhcppool \r (или \n)] { send "ляляля\r" }

Как-то так.

[fornike]

Господа, всем спасибо! Разжевали и в рот положили