안산드레아스

함수만들기 

proc [함수이름] \

{

   내부 함수 구조 생성 후

    return [리턴값]

}

# 함수만들기

# foo에 3을 대입
set foo 3

# add함수, 입력 인자 a,b에 전역변수  foo까지 더해서 리턴.
proc add {a b} \
{
	global foo ; # 전역변수 선언
	return [expr $a + $b + $foo]
}
# add함수에 1,2인자를 넣어서 출력
puts [add 1 2]
# add함수 리턴값을 addfunc값에 넣어서 출력
set addfunc [add 2 3]
puts $addfunc




# 디폴트 인자(기본값이 정해져있음), 참조형 인자(인자를 넣어도 되고 안 넣어도 되고)
# 여기서 a는 필수인자, ref는 참조인자(넣어도 되고 안넣어도 되고), 1은 값을 안넣을때 자동으로 ref값은 1임.(디폴트 값)
proc plus {a {ref 1}} \
{
	upvar $a r 				; # $a 와 r 을 alias시킴. (r = $a)
	set r [expr $r + $ref]	; # 입력인자 a=r 과 참조인자 더해 r에 대입.
	return $r
}

set var 1
# a에 인자를 대입,  ref값을 안 넣었으므로 자동으로 1이 됨.
puts [plus var]
puts [plus var 2]  ; # 참조변수로 2를 넣었으므로 ref가 2가 들어가게 됨.




#가변인자 (제한 없이 여러 인자 대입 가능)
proc sum {args} \
{
	set s 0
	foreach i $args {
		set s [expr $s + $i]
	}
	return $s
}
puts [sum 1 2 ]
puts [sum 1 2 3 4]	; #인자를 마음데로 넣음. (띄어쓰기가 구분자)

Tcl에 관한 콘솔창 입출력에 대한 테스트

#!/usr/bin/tclsh
# 1st line is for Linux user

# Tcl syntax

# 콘솔창에 hello world 출력 (모두 같음)
# puts : 콘솔에 출력

puts "hello world"
puts {hello world}
puts stdout {hello world}
puts stdout "hello world"

# 변수 선언과 사용 #동일한 줄에 ;로 구분 가능
# set {변수명} {값} : 변수에 값 대입
# ${변수명} : 변수값 불러오기

set a 1 ; set b 2 ;  
puts stdout $a ;     
puts stdout $b ;

# 계산하여 출력

puts [expr 3 + 2]
puts [expr $a - $b]
set c [expr $a * $b] ; # 두 계산값을 c에 저장
puts $c

# 문자열도 타입상관 없이 변수에 들어감
# 여러 문자열을 묶을 때, "" 나 {} 사용
set a hello ; set b world ;
set c "hello world yo"
set d {I am also hello world}
puts stdout $a ;  
puts stdout $b ;
puts stdout $c ;
puts stdout $d ;

# 리스트 만들기
# lindex로 몇번쨰 인덱스인지 추출하기
set myList {red green blue}
puts [lindex $myList 2]
puts [lindex $myList 0]

tcl은 'tclsh'라는 프롬프트를 사용함으로, 앞에 아래처럼 붙여주고 .tcl파일을 실행시켜주면 된다.

이를 실행 시키면,

10진수 + 16진수 + 8진수 산수하기

부동소수점과 삼각함수 계산

" "와 { }의 차이, { }는 하나의 문자열으로 묶을 때

역슬래쉬\ 를 사용하여 특수문자 출력

scan 이용해보기

# a변수에 십진수 10 + 16진수 10 + 8진수 10 을 더함. 그리고 출력
set a [expr 10 + 0x10 + 010]
puts $a

# b변수에 부동소수점과 삼각함수를 곱하여 출력. 
set b [expr 2.0 * asin(1.0)]
puts $b


# " " 내에서 $를 이용해 변수의 값 참조.
set var 123
puts "result = $var" ; 

# { }로 묶을 시 참조없이 문자 그데로 인식
puts {result = $var}

# \백 슬래쉬를 이용하면 특수문자를 자체로 출력하게 함.
puts "result = \$var"

#현재 경로를 나타내는 예약어 pwd, ""랑 {}랑 비교해보기
puts "result = [pwd]"
puts {result = [pwd]}
puts "result = \[pwd\]"

# 앞과 뒤의 모양을 스캔하여 a, b변수에 넣어줌
scan "123.456" "%d.%d" a b
puts $a
puts $b

Tcl/Tk를 하기 위해서는 2가지가 필요하다.

1. 텍스트편집을 위한 에디터

2. Tcl/tk 인터프리터.

1.

텍스트 편집은 본인 취향에 맞게 아무거나 선택한다. 추천하는 텍스트는 Notepad++, Sublime text 3 등이 있다. 필자는 Sublime text 3가 더 좋은것 같다. 윈도우에서 다운로드를 위해서는 아래 링크를 클릭한다.

https://www.sublimetext.com/3

2. 윈도우는 아래 링크로 Tcl/Tk 인터프리터를 다운받는다.

https://www.activestate.com/products/tcl/downloads/

다운로드를 위해서는 회원가입 또는 로그인이 필요하다.

그럼 확장명 .tcl 이 모두 이 인터프리터를 이용해 실행이 된다.

더블클릭하여 실행시키면 tcl 코드에 작성된 프로그램이 실행된다.

설치를 완료하면, Tclsh 라는 쉘을 이용하여 Tcl코드를 인터프리팅 할 수있다.

프롬프트 기호로는 %를 쓴다.

http://www.tcltk.co.kr/node/311

https://www.tutorialspoint.com/tcl-tk/

TCL/TK 공부 관련 한글, 영어 링크