객

#!/usr/bin/wish -f set x 7; set y 9 puts stdout $x+$y=[expr $x+$y] puts stdout $x*$y=[expr $x*$y] puts stdout $x/$y=[expr $x/$y] puts stdout $x-$y=[expr $x-$y] exit 0 각각의 변수에 값을 대입하여 사칙 연산을 나타낸것입니다. 한 줄로 두 연산을 나타낼때(;)사용 하고 다음 연산을 시작 합니다.

(#)표시는 tcl/tk 에서 주석으로 사용하고 있습니다. .

#!/usr/bin/wish # 문자열의 총길이 나타내는 프로그램 set len [string length foobar] puts stdout "총 len = $len 입니다." exit 0

#!/usr/bin/wish set var 5 puts stdout "var = $var" set b $var puts stdout "b = $b" exit 0 이 프로그램은 변수에 값을 지정하고 그 값을 a,b에 적용 하는 것을 보여주고 있습니다. 참고할 만한 사이트 국내 : www.tcltk.co.kr 국외 : www.tcl.tk 참고하시면 될듯 합니다.저도 이두 사이트에서 참고를 많이 하였습니다.

#!/usr/bin/wish # hello world프로그램 puts stdout {Hello , World!} exit 0 어느 언어의 책을 보면 첫 번째 나오는 프로그램이 Hello World 입니다. 그래서 tcl/tc 언어에서 짜 보았습니다. 참고할 만한 사이트 국내 : www.tcltk.co.kr 국외 : www.tcl.tk 참고하시면 될듯 합니다.저도 이두 사이트에서 참고를 많이 했습니다.