07/09/24 10:44:10
そもそもset stdin [open...]はstdinという名前の変数に新しく出来たファイルハンドル文字列を代入しているだけでしょ。
「stdin」っていう文字列が標準入力を表現するファイルハンドルだよ。
付け替えはたぶん dup を使うんじゃないかな？Tclxに入ってる
package require Tclx
set f [open aaa.txt]
dup $f stdin
puts [read stdin]
07/09/24 10:44:10
そもそもset stdin [open...]はstdinという名前の変数に新しく出来たファイルハンドル文字列を代入しているだけでしょ。
「stdin」っていう文字列が標準入力を表現するファイルハンドルだよ。
付け替えはたぶん dup を使うんじゃないかな？Tclxに入ってる
package require Tclx
set f [open aaa.txt]
dup $f stdin
puts [read stdin]