기본 문법 정리

Execute Tcl Online

Tcl Tutorial

티클 책

Tcl 주의

• Tcl 에서 공백 하나로도 에러가 난다.

if {1 != 1}{ // ---> }{ 사이에 공백이 없어서 에러
    puts "aaa"
} else {
    puts "bbb"
}
# ------------------------
# 아래는 잘돌아간다.
if {1 != 1} {
    puts "aaa"
} else {
    puts "bbb"
}

• 담당 선임에 의하면 티클은 디버깅이 안된다고 한다.. ㅜ.ㅜ

• 코드 같은 라인에 주석이 있으면 실행이 안되니 삭제 후 실행하기

puts "aaa" # 여기는 주석이 있어 에러가 납니다. 
# 여기 주석은 에러가 나지 않는다.
puts "aaa"

변수에 값 할당하기

• 변수 사용 = $ 기호

• set = 변수 할당

• unset = 제거

• puts = 프린트

• \ = escape 기호

• \t = 탭, \n = 개행

set korea_capital_city Seoul
set label "Capital city of Korea: "
puts "$label $korea_capital_city" 
puts "$label $korea_capital_city" 
unset korea_capital_city 
unset label

# 결과
Capital city of Korea:  Seoul
Capital city of Korea:  Seoul
# ---------------------------------------
set a 100.00
puts "$a bill"    
puts "$$a bill"     
puts "\\$a bill"     
puts "\\$$a bill"  
  
# 결과
100.00 bill
$100.00 bill
$a bill
$100.00 bill
# ---------------------------------------
puts "Tab\\tTab\\tTab"
puts "aaa \\non bbb"
puts "aaaa \\
bbbb"

# 결과
Tab	    Tab   	Tab
aaa 
on bbb
aaaa  bbbb

---

{}, [], "” 사용 차이

set x "aa"
set y [set x "bb"] 
puts "X: $x Y: $y" # 프린트할 때 변수 한개면 “” 없어도 되지만 그 이상은 필요. 여기선 x, y 2개니

# 결과
X: bb Y: bb
# ---------------------------------------
set x "aa"
set z {[set x "ccc"]} # 그대로 출력
puts "$z"

# 결과
[set x "ccc"]
# ---------------------------------------
set a "[set x {dddd}]"
puts "$a"
puts "$x"

# 결과
dddd
dddd
# ---------------------------------------
set b "\\\\[set y {eeee}]"
puts "$b"
puts "$y"

# 결과
\\eeee
eeee

---

수학 명령어

• expr

• 다양한 Math 종류

• 왜 1/2가 0.5가 안되나

puts [expr {-3 * 4}] # -12
puts [expr {100 + 256}] # 356
puts "[expr { sqrt(256) }]" # 16.0
puts [expr {floor(3.2)}] # 3.0
puts [expr {ceil(3.2)}]# 4.0
# ---------------------------------------
# 배열에다가 담아서 처리시 
set a(1) 10
set a(2) 7
puts [expr {$a(1)+$a(2)}] # 17
# ---------------------------------------
# 주의할것 - 1/2이 0.5가 안될 수도 있다. 아래 확인.
puts "[expr {1/2}]"  # 0
puts "[expr {-1/2}]" # -1

# 올바르게 처리시
puts "[expr {1./2}]" # 0.5
puts "[expr {double(1)/2}]" # 0.5
puts "[expr {1./3}]" # 0.3333333333333333
puts "[expr {double(1)/3}]" # 0.3333333333333333

---

if / switch / while / for/ foreach 문

set x 1
if {$x != 1} {
    puts "aaa"
} else {
    puts "bbb"
}
# ---------------------------------------
set x "ONE"
set z ONE

switch $x {
    "$z" {
        puts "aaaa"
    }
    ONE {
        puts "bbbb"
    }
    TWO {
        puts "cccc"
    }
    default {
        puts "eeee"
    }
}

# 결과
bbbb

# ---------------------------------------
set x 1
while {$x < 5} {	
    puts "$x"
    incr x 
}
# ---------------------------------------
for {set i 0} {$i < 10} {incr i} {
    puts "$i"
}
# ---------------------------------------
set menu "pizza chicken pasta"
set i 0
foreach dish $menu {
    puts "$i -> $dish"
    incr i
}

# 결과
0 -> pizza
1 -> chicken
2 -> pasta

---

프로시저 (= 메소드)

• proc

• upvar = 프로시저내 변수?

proc sum {arg1 arg2} {
    return [expr {$arg1 + $arg2}]
}
puts [sum 2 3]

# 결과
5

# ---------------------------------------
proc existence {variable} {
		# upvar 넘어온매개변수 로컬에서사용할변수명
    upvar $variable testVar 
    
    if { [info exists testVar] } {
    	puts "$variable 존재"
    } else {
    	puts "$variable 존재안함"
    }
}

for {set i 0} {$i < 5} {incr i} { set a($i) test }

existence a(0)
unset a(0)
existence a(0)

# 결과
a(0) 존재
a(0) 존재안함

# ---------------------------------------

# 가변인자 같은 느낌.. 마지막 args는 리스트로 받는듯
proc example {first {second ""} args} {
    if {$second eq ""} {
        puts "$first"
        return 1
    } else {
        if {$args eq ""} {
            puts "$first and $second"
            return 2
        } else {
            puts "$first and $second and $args"
            return "many"
        }
    }
}
set count1 [example ONE]
set count2 [example ONE TWO]
set count3 [example ONE TWO THREE ]
set count4 [example ONE TWO THREE FOUR]
puts "$count1, $count2, $count3, and $count4"

# 결과
ONE
ONE and TWO
ONE and TWO and THREE
ONE and TWO and THREE FOUR
1, 2, many, and many

---

변수 scope - global and upvar

• global: 전역에서 사용되는 변수를 가져오고 싶을때 global 사용

  • 아래 Array 섹션 참고

• upvar: 로컬 변수 지정

proc SetPositive {var1 value } {
    upvar $var1 myvar
    if {$value < 0} { // 음수일 경우 양수로 변경 
        set myvar [expr {-$value}]
    } else {
        set myvar $value
    }
    return $myvar
}
SetPositive x 5
SetPositive y -5
puts "X : $x, Y: $y"

# 결과
X : 5, Y: 5

# ---------------------------------------
global은 맨 아래 소켓 통신 echo 참고하기.

---

List

• 리스트 빌트인 명령어들

  • lindex, linsert, concat, lappend, lreplace, lsearch, lsort, lrange 등

• “ ” 나 { } 안에 값을 뛰어서 쓰면 리스트가 된다.

• "[lindex $item 1]: [lindex $item 0]" 나 “” 없이 [lindex $item 1]: [lindex $item 0] 나 똑같은 결과 나옴

# 리스트 생성 예시
set x "a b c"
puts {$x}
puts [lindex $x 2]

# 결과
{a b c}
c

# ---------------------------------------
# 리스트 생성 예시
set myList [list {Washington 1789} {Adams 1797} {Jefferson 1801} {Madison 1809} {Monroe 1817} {Adams 1825} ]

foreach item $myList {
    puts "[lindex $item 1]: [lindex $item 0]"
}

# 결과
1789: Washington 
1797: Adams 
1801: Jefferson 
1809: Madison 
1817: Monroe 
1825: Adams

# ---------------------------------------

# 리스트 빌트인 명령어들과 결과들
set split_date [split 2021/02/01 "/"]
puts [lindex $split_date 0] # 2021
puts [concat a b c {d e} {f g h}] # a b c d e f g h
puts [lappend a {ij K lm}] 
puts [linsert {a b c} 1 "1 2 3"] # a {1 2 3} b c
puts [lreplace "a b c d e f g" 3 5 "AA" "BB"] # a b c AA BB g
puts [lsort "z y c a b"] # a b c y z
puts [lrange "a b c d e f g" 1 3] # b c d

# ---------------------------------------

# 실무(?) 예제: 이메일 만들기
set employees [list "민아" "현규" "재희" "민정" "하루"]

proc creatEmail {employee_names} {
    set myEmail {}
    foreach name $employee_names {
    	set e [join [list $name "@gmail.com"] ""]
    	lappend myEmail $e
    }
    return $myEmail
}

puts [creatEmail $employees]

#결과
민아@gmail.com 현규@gmail.com 재희@gmail.com 민정@gmail.com 하루@gmail.com

Associative Array

set name(first) "Mary"
set name(last)  "Poppins"
puts "$name(first) $name(last)" # Mary Poppins

# ---------------------------------------

proc addname {first last} {
    global name
    incr name(ID)
    set id $name(ID)
    set name($id,first) $first      
    set name($id,last)  $last    
}

addname Mary Poppins
addname Uriah Heep
addname Rene Descartes

# 프린트 어레이
parray name

# 결과
name(1,first) = Mary
name(1,last)  = Poppins
name(2,first) = Uriah
name(2,last)  = Heep
name(3,first) = Rene
name(3,last)  = Descartes
name(ID)      = 3

# ---------------------------------------

array set myArr [list {aa} {Abigail Aardvark} \\
                       {bb} {Bob Baboon} \\
                       {cc} {Cathy Coyote} \\
                       {dd} {Daniel Dog} ]
puts "[array size myArr] 개" # 4 개
# 삭제 키가 없어도 catch 해서 에러 x
catch {unset myArr(aa)} 
puts "[array size myArr] 개" # 3 개

# ---------------------------------------
# 배열 순회

set arr(a) aa
set arr(b) bb
set arr(c) cc

foreach val [array names arr] {
    puts $arr($val)
}

# 결과
aa
bb
cc

---

Dictionary (Array 대용)

dict set clients 1 forenames Joe
dict set clients 1 surname   Schmoe
dict set clients 2 forenames Anne
dict set clients 2 surname   Other
puts [dict size $clients] # 2

dict for {id aa} $clients {
    dict with aa {
      puts "   Name: $forenames $surname"
    }
}

# 결과
Name: Joe Schmoe
Name: Anne Other

String 빌트인 명령어

• length, index, range, compare, match, first, last, tolower, toupper, trim, format 등

set string "this is my test string" # 22
puts "[string length $string]" # h
puts "[string index $string 1]" # is my 
puts "[string range $string 5 10]" # is my 
puts "[string range $string 5 end]" # is my test string

puts [string first "!" "Hello World!!"] # 11
puts [string last "!" "Hello World!!"] # 12

set myStr "Hello World!!"
puts [string compare $myStr "hello world"] # -1
puts [string compare $myStr "hello world!!"] # -1
puts [string compare $myStr "Hello World!!"] # 0

puts [string trimright "aaaa bbbb ...."  .] # aaaa bbbb
puts [string trim "((aaaaa)))" "()"] # aaaaa

puts [format "%-20s %+10s " "Item" "Cost"]
puts [format "%-20s %10d Cents Each" "Tomatoes" "30"]
puts [format "%-20s %10.2f per Lb." "Steak" "3.59997"]

---

정규표현식

# 단어개수 세기 
puts [regexp -all {[^ ]+}  "Where there is a will, There is a way."]
# 첫번째 소문자
puts [regexp {[a-z]+} "Where there is a will, There is a way." match] 

---

File I/O

# 텍스트 파일의 라인 수 세기
set myFile [open "myfile.txt" r]
set number 0

while { [gets $myFile line] >= 0 } {
    incr number
}

close $infile
puts "Number of lines: $number"

# ---------------------------------------

# 현재 디렉토리의 모든 tcl 확장자 파일 가져오기 
set tclfiles [glob *.tcl]
puts "Name - date of last modification"
foreach f $tclfiles {
    puts "$f - [clock format [file mtime $f] -format %x]"
}

# 모든 파일과 서브디렉토리 프린트
set dirs [glob -nocomplain -type d *]
if { [llength $dirs] > 0 } {
    puts "Directories:"
    foreach d [lsort $dirs] {
        puts "    $d"
    }
} else {
    puts "(no subdirectories)"
}

set files [glob -nocomplain -type f *]
if { [llength $files] > 0 } {
    puts "Files:"
    foreach f [lsort $files] {
        puts "    [file size $f] - $f"
    }
} else {
    puts "(no files)"
}

---

Info

# 모든 정의된 변수를 보여준다. 
puts [info vars]

# ---------------------------------------

proc localproc {} {
    global argv

    set loc1 1
    set loc2 2
    
    puts "localproc 시작"
    puts [info locals]
    puts [info vars]
    puts [info globals]
}

set exist [info procs localproc]
if {$exist != ""} {
    puts "localproc does exist at point 2"
}

localproc

# 결과
localproc does exist at point 2
localproc 시작
loc1 loc2
argv loc1 loc2]
tcl_rcFileName tcl_version argv0 argv tcl_interactive exist auto_path env tcl_pkgPath tcl_patchLevel argc tcl_library tcl_platform

# ---------------------------------------

proc factorial {val} {
    puts "현재 레벨: [info level]"
    set lvl [info level]
    if {$lvl == $val} {
        return $val
    }
    return [expr {($val-$lvl) * [factorial $val]}]
}

puts [factorial 5]

# 결과
현재 레벨: 1
현재 레벨: 2
현재 레벨: 3
현재 레벨: 4
현재 레벨: 5
120

# ---------------------------------------

# 이코든 이해가 안되는데...
proc safeIncr {val {amount 1}} {
    upvar $val v
    if { [info exists amount] } { 
            incr v $amount
    }  else {
        set v $amount
    }
}

if {[info procs safeIncr] eq "safeIncr"} {
     safeIncr a
}

puts "After calling SafeIncr with a non existent variable: $a"

set a 100
safeIncr a
puts "After calling SafeIncr with a variable with a value of 100: $a"

---

namespace, package

• 이 개념들은 라이브러리를 import 해올때 사용하는 것 같아, 프로젝트를 진행하면서 알아갈 수 있을것 같다.

namespace eval hello {
    variable a b c 
    set a "aa"
    set b "bb"
    set d "dd"
    # puts $a
}

puts $::hello::b # bb

---

궁금하다

• 티클은 동시성 병렬 프로그래밍이 가능한가?

과제 - 소켓 프로그래밍

• 요구사항

  • 2초에 한번씩 클라이언트에게 ping 보내기

  • 클라이언트가 요청한 서비스 보내주기

    • 서비스 종료: quit, menu, stime, ltime, num_c, num_r, echo <string>

proc Echo_Server {port} {
	global echo
	# 클라이언트가 연결 요청이 오면, EchoAccept를 호출한다.
	set echo(main) [socket -server EchoAccept $port]
}

proc EchoAccept {sock addr port} {
	global echo
	puts "Accept $sock from $addr port $port"
	# echo 배열에 연결된 클라이언트 담는다. 
	set echo(addr,$sock) [list $addr $port]

	# fconfigure와 fileevent 이해를 위해선
	# 여기 참고: <http://www.beedub.com/book/2nd/event.doc.html#1321> 
	fconfigure $sock -buffering line
	fileevent $sock readable [list Echo $sock]

	# after에 list가 이해안됬는데, 관행적으로 쓴다고 함.
	after 2000 [list sendPing]
}

# 주기적으로 보낼 핑 
# 재귀호출: 2초에 한번씩 클라이언트에 핑 보냄
proc sendPing {} {
	global echo
	foreach key [array names echo] {
		# echo 배열을 보면, 서버 자기 자신도 담겨있는데,
		# 자기 자신한테 핑 보낼 필요 X
		if {[string equal $key "main"] == 0} {
			puts [string range $key 5 end] "ping"
		}
	}
	after 2000 [list sendPing]
}	

proc Echo {sock} {
	global echo
	if {[eof $sock] || [catch {gets $sock line}]} {
		
		close $sock
		puts "Close $echo(addr,$sock)"
		unset echo(addr,$sock)
		
	} else {
		if {[string compare $line "quit"] == 0} {
			close $sock
			puts "Close $echo(addr,$sock)"
			unset echo(addr,$sock)
		} elseif {[string compare $line "menu"] == 0} {
			puts $sock "Menu: quit, menu, stime, ltime, num_c, num_r, echo <string>"
		} elseif {[string compare $line "stime"] == 0} {
			puts $sock "[clock format [clock seconds] -format %H:%M:%S]"
		} elseif {[string compare $line "ltime"] == 0} {
			puts $sock "[clock format [clock seconds] -format {%D %H:%M:%S}]"
		} elseif {[string compare $line "num_c"] == 0} {
			puts $sock "[expr [array size echo] - 1]"
		} elseif {[string compare $line "num_r"] == 0} {
			puts $sock "$request_count"
		} elseif {[regexp {echo +} $line match] != 0} {
			puts $sock [string range $line 5 end]
		} else {
			puts $sock "Available requests: quit, menu, stime, ltime, num_c, num_r, echo <string>"
		}
	}
}
Echo_Server <개인 포트번호>
vwait forever