Tag: tcl

configure не удалось из-за того, что для получения более подробной информации см. `config.log '

Я пытаюсь скомпилировать Tcl, но я получил следующую ошибку: ~/apps/tcl8.6.6/unix> ./configure –prefix=$HOME/.local/Tcl checking whether to use symlinks for manpages… no checking whether to compress the manpages… no checking whether to add a package name suffix for the manpages… no checking for gcc… gcc checking for C compiler default output file name… configure: error: C compiler […]

Проверьте слово в ожидании вывода и добавьте его в текстовый файл

У меня такой код: #!/opt/tools/unsupported/expect-5.39/bin/expect set timeout 10 match_max 256 log_file report.txt expect_after eof {exit 0} spawn ssh -l user ip expect "(yes/no)?" { send "yes\r" } expect "password:" { send "password\r" } expect "~]#" { send "date\r" } set timeout 600 expect "~]#" { send "scp user@ip:/sometlink/AMM.tar.gz /somelink/\r" } expect "Password:" { send "password\r" […]

Как проверить, является ли данный путь файлом или каталогом

Я использую приведенную ниже команду в сценарии expect (в tcl / Tk) для проверки того, является ли введенный путь отдельным файлом или каталогом: set b [exec ./check.sh $file1 | awk -F {=} {{print $1}} ] Вышеупомянутая команда вызывает файл check.sh . Его содержание: #!/bin/bash if [[ -f "$1" ]] then echo "File" else if [[ […]

grep IP-адреса в сценарии ожиданий

Это часть кода в сценарии ожидания, у меня проблема с поиском IP-адресов из файла, имя которого находится в переменной $filename . #!/usr/local/bin/expect — ###Made by Etihkru#### set env(TERM) vt100 set env(SHELL) /bin/sh set env(HOME) /usr/local/bin exp_internal 1 set PASSWORD eri set SIU [lindex $argv 0] match_max 1000 if {$SIU == ""} { puts "Missing name […]

TCL скрипт try catch

У меня есть TCL-скрипт, который задает несколько переменных и читает несколько файлов. Последний файл, который он читает, может содержать конфиденциальную информацию, поэтому мне нужно убедиться, что этот файл удаляется, даже если в начале скрипта возникает ошибка: #!/usr/bin/expect -f set timeout 5 set foo [lindex $argv 0] set bar [lindex $argv 1] set secret [lindex $argv […]

Повышение производительности числовых циклов в tcl

Я пытаюсь улучшить производительность скрипта Tcl. Это простая случайная выборка с алгоритмом замены. Я знаю, что лучше делать это на языке с более численным ориентиром, но платформа, на которой я работаю, использует Tcl. Вот код, который я сгенерировал, но он относительно медленный. Для каждого входного списка требуется около 1 секунды за цикл, равный примерно 100 […]

заменить в начале строки

Я хочу найти шаблон и вставить символ в начале строки, используя regsub в TcL. Мне нужно использовать только TcL Входной файл mna1 x a1 vss vbn nch_svt_mac nfin=nfin_n1 l=ln1 mna2 x a2 vss vbn nch_svt_mac nfin=nfin_n2 l=ln2 mpa2 vdd a2 net10 vbp pch_mac nfin=nfin_p2 l=lp2 mpa1 net10 a1 x vbp pch_svt_mac nfin=nfin_p1 l=lp1 Желаемый выход […]

Как я могу вернуть конкретный код ошибки в этот момент в моем TCL-скрипте?

У меня есть сценарий ожидания TCL, который запускает команду scp для загрузки файла конфигурации на мой DNS-сервер: #!/usr/bin/expect -f set config "~/dnsmasq.conf" spawn /usr/bin/scp "$config" root@192.168.1.1:/etc/dnsmasq.conf expect { -re ".*yes.*no.*" { exp_send "yes\r" exp_continue } -re ".*password.*" { exp_send "$password\r" expect { -re ".*denied.*" { exit 7 } } } } Я хотел бы вернуть […]

Команда Unix не работает в скрипте Tcl

Я новичок в программировании Tcl и UNIX. Следующая команда работает в командной строке UNIX, но не работает в сценарии Tcl. $ sort -b -k8 abc.txt | awk '!a[$1]++' error out for 8 (-k8) and 1($1) is not variable Сначала я пытаюсь сортировать столбец 8, а затем выбирать только уникальные данные в столбце 1. Я также […]

Tcl regexp: Как проверить, содержит ли переменная число?

Ниже приведен скрипт tcl для проверки наличия в переменной 0-9 числа. set a "abc" if {[ regexp {[0-9]*} $a ]} { puts "Found number in $a" } else { puts "Doesn't find number in $a" } Но когда я запускаю его, он сообщает «Найденный номер в abc».

Interesting Posts

Управление Mac Mini с Linux Mint с TeamViewer – Некоторые специальные клавиши не работают

Как определить, работает ли система внутри контейнера systemd-nspawn?

Каковы пользовательские группы openSUSE 13.1 по умолчанию?

Объяснение процесса сборки ядра в системах Ubuntu / Debian

Недавно установленная установка Debian не распознается

Потеря звука после установки вина 1.5 (+ python 2.7)?

Проблема с графикой гостевой машины KVM

Маршрутизировать весь трафик через прокси-сервер

Получение ошибок при открытии Windows. Ошибка 1: имя файла должно быть абсолютным именем или блоком

Использование труб для отображения первых двух и двух последних пользователей в системе?

Есть ли причина использовать « || команда "вместо" && command "?

Установите японский метод ввода на exGENT

C ++ компилируется в Arch Linux без пакета g ++ в репозиториях

Неизменяемый бит в AIX?

Как я могу понизить версию glibc?

Linux и Unix - лучшая ОС в мире.