前置き

ActiveTcl 8.6 + Windows10 Japanese 64bitで動作確認しました。

スクリプト冒頭3行の

#!/bin/sh
#\
    exec tclsh "$0" ${1+"$@"}

や

#!/bin/sh
#\
    exec wish "$0" ${1+"$@"}

はActiveTclで実行する場合は不要なので以下では省略します。UNIX OSやCygwinでファイル名だけで実行する場合は必要です。

Tcl編

実行方法

> c:\activetcl\bin\tclsh.exe hello.tcl

シンプルにHello, world! ～その1～

hello.tcl

puts {Hello, world!}

シンプルにHello, world! ～その2～

hello.tcl

puts "Hello, world!"

標準エラー出力にHello, world!

hello.tcl

puts stderr "Hello, world!"

細切れにHello, world!

hello.tcl

puts -nonewline "Hello"
puts -nonewline ", world!"
puts -nonewline "\n"

printf風にHello, world!

hello.tcl

puts -nonewline [format "%s, %s!\n" Hello world]

変数に入れてからHello, world! ～その1～

hello.tcl

set foo "Hello, world!"
puts $foo

変数に入れてからHello, world! ～その2～

hello.tcl

set foo Hello
set bar world
puts "$foo, $bar!"

変数に入れてからHello, world! ～その3～

hello.tcl

set foo Hello
set bar world
puts "[set foo], [set bar]!"

リストをつなげてHello, world!

hello.tcl

set foo [list Hello world!]
puts [join $foo ", "]

関数の処理でHello, world!

hello.tcl

proc helloworld {} {
    puts "Hello, world!"
}
helloworld

関数の戻り値でHello, world!

hello.tcl

proc helloworld {} {
    return "Hello, world!"
}
puts [helloworld]

シリアルポートにHello, world!

COM1とCOM2がクロスケーブルで接続されているとして。

hello.tcl

set ch1 [open "\\\\.\\COM1" r+]
fconfigure $ch1 -mode 9600,n,8,1
set ch2 [open "\\\\.\\COM2" r+]
fconfigure $ch2 -mode 9600,n,8,1 -buffering line
puts $ch2 "Hello, world!"
close $ch2
puts [gets $ch1]
close $ch1