Source ./qqq.tcl

Вторым способом является запуск командного файла из командной оболочки tclsh .

Создадим скрипт 222.tcl, который вызовем из командной строки с аргументами. У интерпретатора есть переменная argv, которая представляет собой список аргументов, с которыми был вызван интерпретатор. У интерпретатора также есть переменная argv0, в которой содержится имя файла, предназначенного для выполнения интерпретатором.

__________________________________

Puts argv0

puts [lindex argv 0]

puts [lindex argv 1]

puts [lindex argv 2]

puts [lindex argv 3]

__________________________________

Вызов скрипта 222.tcl с аргументами.

Tclsh ./222.tcl Denis Anton Andrew Egor

Denis

Anton

Andrew

Egor

Команды условного перехода. Конструкция if then else используется для написания скриптов с условными переходами. Покажем пример использования данной конструкции на следующем скрипте.

Данный скрипт ttt запускается с двумя аргументами – целыми числами. Происходит их сравнение. Если первое число меньше второго, то отрабатывается первая ветвь и выводится слово «Increasing», если первое число больше второго, то отрабатывается второй if и выводится слово «Decreasing», а если два числа равны, то используется ветвь else и выводится слово «Equal».

Выполним этот скрипт и двумя аргументами 5 и 7, 7 и 5, 7 и 7.

В данном примере конструкция then не использовалась, однако если нужно выполнить много команд после сравнения, то лучше применить then .

Конструкция switch предназначена для осуществления выбора одного варианта из нескольких возможных. Выбор производится путем сопоставления строкового значения с несколькими возможными шаблонами. Каждому шаблону ставится в соответствие блок команд TCL. Структура switch имеет такой синтаксис:

switch –опции строка {

шаблон1 {