(HobNote)Tcl関係[01]

Tcl関係[01]

since 2011.05.16 last update 2011.05.16

Tclでは、true=1,false=0として扱う。

[hoge user]$ tclsh
% expr 1==1
1
% expr 1==2
0

※==は、両辺の比較

まだ、確認しきれてないがTclのサイトのTutorialには、以下のような分類が記載されている。
yes/noは、何を使ったときに戻り値になるんだろうか。。。

	False	True
a numeric value	0	all others
yes/no	no	yes
true/false	false	true

▲ ▼

if文の書き方

if文的な条件分岐処理の記述方法には、2種類ある。
1つ目は、expr { 条件式 ? 真のときの処理 : 偽のときの処理 }の記述の仕方になる。

sample03.tcl

#!/usr/bin/tclsh
set abc 2
expr { $abc >= 0 ? [puts "TRUE"] : [puts "FALSE"] }
set abc -2
expr { $abc >= 0 ? [puts "TRUE"] : [puts "FALSE"] }
exit

で、実行する。

[hoge user]$ chmod u+x ./sample03.tcl
[hoge user]$ ./sample03.tcl 
TRUE
FALSE
[hoge user]$

2つ目は、よくあるif文

sample04.tcl

#!/usr/bin/tclsh
set abc 2
if { $abc >= 0 } {
  puts "TRUE"
} else {
  puts "FALSE"
}

set abc -2

if { $abc >= 0 } {
  puts "TRUE"
} else {
  puts "FALSE"
}

exit

で、実行する。

[hoge user]$ chmod u+x ./sample04.tcl
[hoge user]$ ./sample04.tcl 
TRUE
FALSE
[hoge user]$

ここで、if,elseと{}は、改行せず、spaceを1つ以上あけないといけない
結構、構文の規制がかたそう。。。

sample04err.tcl

以下、赤字の2箇所の記述がダメ

#!/usr/bin/tclsh
set abc 2
if{ $abc >= 0 } {
  puts "TRUE"
} else {
  puts "FALSE"
}

set abc -2

if { $abc >= 0 } {
  puts "TRUE"
}
else {
  puts "FALSE"
}

exit

で、実行すると以下のようにErrorメッセージが出る。
このErrorは、2中の最初のifのところのError内容だけを表示している

[hoge user]$ chmod u+x ./sample04err.tcl
[hoge user]$ ./sample04err.tcl 
invalid command name "if{"
    while executing
"if{ $abc >= 0 } {
  puts "TRUE"
} else {
  puts "FALSE"
}"
    (file "./sample04err.tcl" line 3)

[hoge user]$

▲ ▼

TopPage > Tcl関係[00] > Tcl関係[01]