tcl里边.proc里边想用外边定义的变量怎么办

set procedure to kk 是打开过程文件

public x,y 定义全局变量，全局有效

private 是在过程中屏蔽public定义的变量，即私有变量，离开过程，就会实效。

local 定义局部变量，作用域只在本过程。

x＝30 是赋值语句，将30赋给x

public x,y &&定义全局变量

set proc to kk &&打薯芦颤开过程哗租文件

x=20 &&全局变量赋值

y=50

do a1 &&执行过程a1

?x,y

set proc to

return

*过程序文件kk.prg

proc a1

private x &&定义私有变量，屏蔽调用过程的x

x=30&&x＝30

local y &&定数败义局部变量，y为逻辑假

do a2 &&执行a2

?x,y

return

proc a2

x="kkk" &&x赋值，x如果脱离a2过程，x变成全局变量，即x＝20

y="mmm" &&y从a1过程出来，变成全局变量，重新赋值“mmm”

return

看着我的解释导顺序，就会明白的

一、指代不同

1、perl：一种功能丰富的计算机程序语言，运行在超扮正过100种计算机平台上。

2、tcl：工具命令语言。

3、shell：为使用者提供 *** 作界面”的软件（命令解析器）。

二、特性不同

1、perl：l借取了C、sed、awk、shell脚本语者缺清言以及很多其他程序语言的特性，其中最重要的特性是它内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。

2、tcl：本身不提供面向对象的支持。但是语言本身很容易扩展到支持面向对象。许多C语言扩展都提供面向对象能力，包括XOTcl,Incr Tcl等。另外SNIT扩展本身就是用TCL写的。

3、shell：交互式解释和执行用户输入的命令或者自动地解释和执行预先设定好的一连串的命令。

三、优势不同

1、perl：可以很容易 *** 作数字，文本，文件和目录，计算机和网络，特别是程序的语言。这种语言应该很容易运行外部的程序并且扫描这些程序的输出获取感兴趣的东西。

2、tcl：经常被用于 快速原型开发,脚本编程，GUI和测试等方面。

3、shell：作为程序设计语言，定义了各种变量和参数，并提供了许多在高级语言中才具有首前的控制结构，包括循环和分支。

参考资料来源：百度百科-TCL语言

参考资料来源：百度百科-perl

参考资料来源：百度百科-shell

---