expect

[popka]

всем привет не как не могу понять как мне использую язык TCL написать такую конструкцию

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

host egorka.homeip.net | awk '{print $4}'

пишу так всё отлично.

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

#!/usr/local/bin/expect -f
send [exec host egorka.homeip.net]
expect eof

но когда хочу использовать вот так

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

#!/usr/local/bin/expect -f
send [exec host egorka.homeip.net | awk '{print $4}' ]
expect eof

то сразу

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

%./test2
can't read "4": no such variable
    while executing
"exec host egorka.homeip.net | awk '{print $4}'"
    invoked from within
"send [exec host egorka.homeip.net | awk '{print $4}']"
    (file "./test2" line 2)
%

я так понял он ругается на | но как мне это обойти?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

awk c этой стороны делать

[popka]

решили вот так вот

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

#!/usr/local/bin/expect
log_user 1
set a [exec host egorka.homeip.net | awk "{print \$4}" ]
set results $a
send $a
send [exec ping $a]
expect eof

ругался на переменную $4 так как считал её своей