wolfman 0 16 марта, 2018 Опубликовано 16 марта, 2018 · Жалоба Приветствую всех. Понадобилось тут перед сборкой проекта в Квартусе иметь возможность подменять один файлик. Написал скрипт на TCL, но он ожидает ввода параметра с клавиатуры. А мне надо, чтобы параметр передавался с запуском скрипта, т.е. типа такого: ./myscript.tcl 1 где 1 этот параметр, который определяет какой файл надо заменить. Никак не соображу как это сделать. Код скрипта прилагаю: #!/usr/bin/tclsh # получаем параметр с клавиатуры set var [gets stdin] # определяем путь, по которуму лежит скрипт и запоминаем его set TclPath [file dirname [file normalize [info script]]] # проверяем какой параметр нам передали if {$var == 1} { # если передали '1', копируем файл из src/debug/ file copy -force $TclPath/src/debug/pwr.vhd $TclPath # иначе забираем файл из /src/release/ } else {file copy -force $TclPath/src/release/pwr.vhd $TclPath} Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
_Ivan_ 0 16 марта, 2018 Опубликовано 16 марта, 2018 · Жалоба Гуглежом находится вот такое https://www.devdungeon.com/content/how-use-...e-arguments-tcl Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
wolfman 0 16 марта, 2018 Опубликовано 16 марта, 2018 · Жалоба Заработало вот в таком виде: #!/usr/bin/tclsh # определяем путь, по которуму лежит скрипт и запоминаем его set TclPath [file dirname [file normalize [info script]]] if {[ lindex $argv 0] == 1} { # если передали '1', копируем файл из src/debug/ file copy -force $TclPath/src/debug/pwr.vhd $TclPath # иначе забираем файл из /src/release/ } else {file copy -force $TclPath/src/release/pwr.vhd $TclPath} Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться