Tag: tcl

Почему вывод не записывается в журнал из сценария ожидания

Я пытаюсь записать вывод команды netcat, включая команду, и в файл, войдя на удаленные серверы. Но он не пишет. Что мне не хватает? #!/usr/bin/expect -f set user [lindex $argv 0] stty -echo send_user "Password: " expect_user -re "(.*)\n" set passwd $expect_out(1,string) send_user "\n" stty echo set output [open "outputfile.txt" "a+"] spawn ssh $user@mydomain.com expect { […]

Как установить iwidgets без доступа root и установить окружение

Недавно я хочу запустить скрипт (PWgui), который требует Tcl (Itk). В руководстве указано, что я должен заранее установить iwidgets4. Я использую университетский кластер и не имею никаких привилегий root. Мои вопросы: Как установить iwidgets4 без доступа root? После установки, как настроить среду, чтобы Itk мог быть вызван всякий раз, когда это необходимо? (В кластере используется […]

«Не удалось подключиться к дисплею»: ошибка 0.0 "на Cygwin

Я пытаюсь запустить tclsh с tk, и у меня появляется ошибка отображения: no display name and no $DISPLAY environment variable Затем я пробую следующее: export DISPLAY=:0.0 И, конечно, он говорит, что не может подключиться к отображению «: 0.0». Сервер Cygwin / X установлен строго в соответствии с http://x.cygwin.com/ . Но нигде не зарегистрировано, как запустить […]

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 Желаемый выход […]

Interesting Posts

Как перенаправить путь по умолчанию библиотеки библиотек ссылок /lib64/libc.so.6, /lib64/libc.so.6: version `GLIBC_2.14 'не найден

если команда find -exec

Заставить ssh запрашивать пароль и открытый ключ

CSV-файл + установить параметры и значения CSV в сценарии bash

SSH: Почему моя система предлагает мой закрытый ключ при попытке аутентификации с открытым ключом?

Копирование ОС с одного диска на другой, переходящего из MBR в GPT, – что нужно отслеживать?

blkid возвращает больше информации, чем ожидалось

Можно ли хранить файлы на диске без ОС?

Как обмен данными терминалом и оболочкой?

Как изменить клавиши для обработки окон (из меню, по умолчанию: alt + space) в openbox?

Почему у меня так много ненужных пакетов?

Есть ли способ сделать минимальную установку CentOS без LVM / ext4?

xfreerdp переадресация микрофона, но в Windows говорится: «Нет установленных аудиоустройств»

Невозможно контролировать яркость на HP Pav dv6t, работающем на Fedora 16

Как удаленно подключиться к компьютеру через ssh, который находится за беспроводным маршрутизатором?

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