Tcl非常简单易学,让我们开始创建第一个Tcl程序!

Tcl 程序示例

让我们编写一个简单的Tcl程序。所有Tcl文件都将具有扩展名,即 .tcl。因此,将以下源代码放入test.tcl文件中。

#!/usr/bin/tclsh

puts "Hello, World!" 

假设Tcl环境设置正确;让我们在切换到文件目录后运行程序,然后使用-

$tclsh test.tcl

我们将获得以下输出-

Hello, World!

现在让我们看一下Tcl程序的基本结构,以便您轻松理解Tcl语言的基本构建块,在Tcl中,我们使用换行或分号来终止上一行代码。

无涯教程网

Tcl 注释

#!/usr/bin/tclsh

# my first program in Tcl
puts "Hello World!" 

执行以上代码后,将产生以下输出-

链接:https://www.learnfk.com/article-tcl-tk/tcl_basic_syntax

来源:LearnFk无涯教程网

Hello World!

使用条件为" 0"的" if"写入多行或块注释。一个例子如下所示。

#!/usr/bin/tclsh

if 0 {
   my first program in Tcl program
   Its very simple
}
puts "Hello World!" 

执行以上代码后,将产生以下输出-

链接:https://www.learnfk.com/article-tcl-tk/tcl_basic_syntax

来源:LearnFk无涯教程网

Hello World!

内联注释使用;#,下面给出一个例子。

#!/usr/bin/tclsh

puts "Hello World!" ;# my first print in Tcl program

执行以上代码后,将产生以下输出-

链接:https://www.learnfk.com/article-tcl-tk/tcl_basic_syntax

来源:LearnFk无涯教程网

Hello World!

Tcl 保留字

以下列表显示了Tcl中的一些保留字。这些保留字不得用作常量或变量或任何其他标识符名称。

afterappend array auto_execok
auto_import auto_load auto_load_index auto_qualify
binary Bgerrorbreakcatch
cdClockclose concat
continue Ddedefault else
elseifEncoding eoferror
evalExecexit expr
fblocked Fconfigure fcopyfile
fileeventFlushfor foreach
formatGets globglobal
historyIfinfo interp
joinLappend lindex linsert
list Llengthload lrange
lreplace Lsearch lsortnamespace
openPackage pid pkg_mkIndex
procPuts pwdread
regexp Regsubrenameresource
returnScanseekset
socketSourcesplit string
substSwitch tclLog tell
timeTraceunknowunset
updateUplevel upvarvariable
vwaitwhile

Tcl 空格

仅包含空格的行(可能带有注释)被称为空白行,而Tcl解释器会完全忽略它。

#!/usr/bin/tclsh

puts "Hello World!" 

" puts"和" Hello World!"之间必须至少有一个空格字符(通常是一个空格),以便解释器能够区分它们,另一方面,在以下语句中-

#!/usr/bin/tclsh

puts [expr 3 + 2] ;# print sum of the 3 and 2

执行以上代码后,将产生以下输出-

链接:https://www.learnfk.com/article-tcl-tk/tcl_basic_syntax

来源:LearnFk无涯教程网

5

这一章你学到了什么?来做个笔记,好记忆不如烂笔头! 如果觉得对您有帮助,麻烦帮分享给您的朋友。

祝学习愉快! (如果觉得不正确,选中要修改的内容->右键->编辑)

点我分享笔记