Запустите команду tclsh без tcl-файла, интерпретатор перейдет в интерактивный режим. Могу ли я просто отключить эту функцию, изменив исходный код tclsh?

У меня проблема с изменением версии tcl с 8.4 на 8.5.12 на машине RHEL. Наш продукт использует компоненты TclDevKit, такие как Tcldom, Tclxml и т. д. Также мы используем Incr Tcl (Itcl). Я пытаюсь создать файл pkgIndex.tcl в Itcl, чтобы найти Itcl,...

Я работаю со сценарием tcl под Ubuntu 12.04, и у меня возникла проблема, когда я пытаюсь настроить многоадресный сокет. То, что я пытаюсь сделать, это перенаправить трафик из какого-то сокета в многоадресный, но я не знаю, почему, хотя многоадресный...

Контекст: Windows 7, ActiveState Tcl 8.6.1 % info tclversion 8.6 % info patchlevel 8.6.1 У меня есть консольное приложение С# под названием SETCFG.EXE. Он находится по пути в C:\BIN. % set project corp corp % set method Recent Recent %...

Я пытаюсь получить значение из экземпляра с OID с помощью команды tcl. В TCL работает команда: % set snmp_result [snmpwalk -Os -c public -v 2c 192.168.1.20 .1.3.6.1.4.1.31926.2.1.1.19] iso.3.6.1.4.1.31926.2.1.1.19.1 = INTEGER: -57 Я...

Я пытаюсь выполнить в tclsh следующий код: set t 2 if { $t > 0 || $t < 30 || $t < 20 } { puts yes } В оболочке tclsh я получаю следующую ошибку: syntax error in expression " $t > 0 || $t < 30 || $t < 20 ": character not...

У меня тут странная ситуация. Мне нужно запустить exec для сценария getValue.itcl, но я не получаю никаких результатов, если пытаюсь запустить его в строке с перенаправлением ввода. Извините, если я использую неправильные термины. Использование...

# Prints the string in a file puts $chan stderr "$timestamp - Running test: $test" # Prints the string on a console puts "$timestamp - Running test: $test" Есть ли способ отправить выходные данные на экран и в файл журнала одновременно? В...

Я просматриваю руководство по Tcl , и оператор lappend возвращая неожиданные результаты. Я запускаю это на интерфейсе командной строки оборудования для балансировки нагрузки F5. Вот соответствующая системная информация: ~ \# cat...

У меня есть следующий тестовый пример: #!/bin/bash tclsh <<EOF puts "argv=$argv" EOF Как я могу передать аргументы в tclsh? Аргументы должны быть после файла (согласно справочной странице tclsh) SYNOPSIS tclsh ?-encoding...

Код, который я использую: set channel 52/80 if {![ regexp { ([0-9]+)\/80 } $channel match cchannel ] } { puts "Channel regex-ed in \[SLVR\]\[SetAffected_channels\] is: $cchannel\n\n" } возвращает ошибку: невозможно прочитать...

Я хочу выполнить следующую команду в сценарии tcl. Команда относится к конкретному инструменту. exec tool cut Netlists/$::env(DESIGN_NAME).netlist.v Когда вышеупомянутая команда выполняется при запуске сценария tcl, соответствующий вывод не...