[hoge user]$ tclsh
% puts "Hellow world."
Hellow world.
もしくは、
% puts stdout "Hellow world."
Hellow world.
% exit
[hoge user]$

#!/usr/bin/tclsh
puts "Hello world."
puts "----------------------"
puts stdout {Hello world.}
puts "----------------------"
puts stderr "Hello world."
exit

[hoge user]$ chmod u+x ./sample00.tcl
[hoge user]$ ./sample00.tcl 
Hello world.
----------------------
Hello world.
----------------------
Hello world.
[hoge user]$ 

#!/usr/bin/tclsh
puts "Hello world."
set fast_str Hello
set second_str {world.}
puts "$fast_str $second_str"
puts {$fast_str $second_str}
exit

[hoge user]$ chmod u+x ./sample01.tcl
[hoge user]$ ./sample01.tcl 
Hello world.
Hello world.
$fast_str $second_str
[hoge user]$

[hoge user]$ tclsh
% puts "1 + 1"
1 + 1
% puts [ expr "1 + 1" ] 
2
% puts {1 + 1}
1 + 1
% puts [ expr {1 + 1}]
2
% set abc 1
1
% puts "$abc + $abc"
1 + 1
% puts {$abc + $abc}
$abc + $abc
% puts [ expr $abc + $abc ]  
2
% puts [ expr "$abc + $abc" ]
2
% puts [ expr {$abc + $abc} ] 
2
% 

#!/usr/bin/tclsh
######################

puts {date command only}
puts [ exec date ]
puts ""
######################
puts "date with format"
dateコマンド自体は、date +"%Y.%m.%d %p %I:%M:%S"の一塊で実行可能だがtclのexec上で
""の使いかたがわかっていないので以下のような書き方でformatを実現してみた
puts "[ exec date +%Y.%m.%d ] [ exec date +%p ] [ exec date +%I:%M:%S ]"

exit

[hoge user]$ chmod u+x ./sample011.tcl
[hoge user]$ ./sample011.tcl
date command only
2011年  5月 24日 火曜日 22:22:58 JST

date with format
2011.05.24 午後 10:22:58
[hoge user]$

#!/usr/bin/tclsh
puts "Hello world."
set fast_str Hello
set second_str {world.}
puts "$fast_str $second_str"
puts "$fast_str\
$second_str"
puts "$fast_str
\ $second_str"
puts "$fast_str
\$$second_str"
puts "$fast_str
\$second_str"
puts "\"\" and \{\}"

[hoge user]$ chmod u+x ./sample02.tcl
[hoge user]$ ./sample02.tcl 
Hello world.
Hello world.
Hello world.
Hello
 world.
Hello
$world.
Hello
$second_str
"" and {}
[hoge user]$

[hoge user]$ tclsh
% expr 1+5
6
% expr "1" + "5"
6
% expr {1-5}
-4
% expr {1} - {5}
-4
% expr " 1.1-8.6 "
-7.5
% 

[hoge user]$ tclsh
% expr 5*2
10
% expr 6/4
1
% expr 6.0/4
1.5
% expr 6/4.0
1.5
% expr 6/4*2
2
% expr 6/4.0*2
3.0
% expr 6*2%5
2
% expr 6*2/5
2
% expr 4%5
4
% expr 2*5%3
1
% expr 2*(5%3)
4
% expr 2.0*(5%3)
4.0
% 

[hoge user]$ tclsh
% expr ~1
-2
% expr ~2
-3
% expr !0
1
% expr !1
0
% expr !2
0
% expr !3
0
%