TSfree 発言

植田です。

Bruceさんの出力では，全角と半角のスペースが出力さ
れず，またlengthでそれらがカウントされていないのを不
思議に思い，同じスクリプトをWindows2000上で動かして
みました。

E:\SCR\Tcl>copy con t060228b.tcl
set str {こんにちは　 世界}
puts [string length $str]
puts [string bytelength $str]
puts [regexp {\s+} $str]
puts [regexp -indices {\s+} $str pos]
puts $pos
^Z
        1 個のファイルをコピーしました。

E:\SCR\Tcl>tclsh t060228b.tcl
9
25
1
1
5 6
lengthが全角と半角のスペースをそれぞれ１文字とカウン
トしています。

Active Tcl8.4.12.0を使いました。