Tcl 기본 문법 예제

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

실행결과