Ｔｃｌコマンド編

　ファイル等の操作

　この章では、ファイル操作関連のコマンドを紹介します。
　これらのコマンドに共通する考え方として、チャネルＩＤを通してファイルのＩ／Ｏを行っています。チャネルＩＤは、インタプリタが自動で付けた名前（文字列）であり、ファイルへデータを書き込んだり、逆にファイルからデータを読み込む際に、それぞれのコマンドにそのチャネルＩＤを渡します。
　また、ここで「ファイル」としているものは、普通のファイルの他に標準入出力や、ソケット通信も含みます。
　それでは、既存のフラットファイル「in.txt」をオープンしてその内容を「out.txt」と言うファイルへ出力するスクリプトを説明しましょう。

proc proc_file1 {} {
  if { [catch {open in.txt} fp_i] == 1 } {
    puts "in.txt ファイルがありません"
    return
  }
  if { [catch {open out.txt w} fp_o] == 1 } {
    puts "out.txt ファイルをオープンできません"
    close $fp_i
    return
  }
  if { [catch {puts $fp_o [read $fp_i]}] == 1 } {
    puts "ファイルの入出力に失敗しました"
  }
  close $fp_i
  close $fp_o
  puts "成功しました"
}
proc_file1

プロシジャーの定義
入力ファイルのオープンとチェック
読み込みモードでオープン


出力ファイルのオープンとチェック
書き込みモードでオープン



読んで書き込む


チャネルを閉じる



実行する

　チャネルＩＤとしてインタプリタからは、例えば「file5」のような文字列が返されます。
これがソケットだと、「sock8」とかになりますが、あくまでインタプリタが、独自に返す文字列ですから、リテラルな文字列をコーディングしないようにしてください。
　次の例は、ソケット通信を行ったものです。
　自分のＰＣで実験する場合は、サーバーとクライアントのIPアドレスを両方とも自分のＰＣのＩＰアドレス(ex. 127.0.0.0)にすればできますが、場合によっては他人に迷惑が掛かりますので、自己責任においてのみ慎重にお願いします。
（どんなことが起きても、ボクは責任持てませんよぉ〜。）

proc proc_test1 {sock client port} {
  puts "proc_test1 : $sock $client $port"
  fconfigure $sock -blocking 1
  puts $sock "受け取ったよ"
  flush $sock
  fileevent $sock readable "proc_test2 $sock $client $port"
}

proc proc_test2 {sock client port} {
  puts "proc_test2 : $sock $client $port"
  puts [gets $sock]
  puts $sock OKOKOK
  flush $sock
}
socket -server proc_test1 -myaddr 127.0.0.0 8080

socket -myaddr 127.0.0.0 127.0.0.0 8080

gets sock32

puts sock32 "クライアントのマシンぢゃよ"
flush sock32

gets sock32

puts sock32 "もう一回ぢゃ！"
flush sock32

gets sock32

　後は、サーバー側でクローズ後にクライアント側でクローズすれば終了です。
これをもう少し発展させれば、サーバー側に処理を依頼することも出来ますし、実際にそのようなシステムも稼動しています。