При написании скрипта TCL никак не могу найти способ, как мне получить путь к самому этому файлу TCL. Например, я написал скрипт test.tcl, поместил его на C:\AAA\BBB\test.tcl. Как мне в этом же скрипте извлечь путь C:\AAA\BBB ?
Последние комментарии
-
Дмитрий Шурупов, 12 июня в 13:55 →
Перекличка
13
-
Иванн, 9 апреля в 8:31 →
Ассоциация РАСПО провела первое учредительное собрание
1
-
Oksana_Gusak, 13 октября в 7:31 →
Как «замокать» файл для юниттеста в Python?
2
-
Kiri11.ADV1, 7 марта 2021 года в 12:01 →
Логи catalina.out в TomCat 9 в формате JSON
1
-
fhunter, 26 февраля 2021 года в 20:45 →
A, MX, PTR — Настройка и проверка извне. Как ?
2
ecobeing.ru
Экология и вегетарианство на благо всем живым существам Планеты.
regsub -all {\[^\]+$} «C:\\AAA\\BBB\\test.tcl» «» out
puts $out
Всё это хорошо (а фразу «\test.tcl», которая также возвращается в переменную $out, я бы естественно отсёк), но в этом примере В ЯВНОМ ВИДЕ указывается этот путь. А я его как бы заранее-то не знаю и хочу получить. Т.е. я поместил скрипт test.tcl в некое место и в процеесе его выполнения хочу получить это место.
Даааа чета я стпуил по твоему вопросу, тада просто в тело скрипта помести:
regsub {[^\\]+$} $argv0 "" path cd $path puts [pwd]Увы. $argc и $argv<число> (конечно $argv0) — это первое, что пришло мне на ум, по аналогии с другими языками командной строки. Написал простейшую команду puts «path = $argv0», и получил отлуп:
# can’t read «argv0»: no such variable
Это я получил внутри того приложения, которое умеет работать со скриптами TCL (для чего мне собственно всё и надо).
Если же выполнить из-под обычного интерпретатора TCL (запускаешь экзешник tclsh, открывается чёрное окно с приглашением в виде %, и там вводишь source test.tcl), то выдаётся пустышка:
path =