如何检查文件是否已在tcl中打开

Question

我有一个tcl程序，在其中我打开了一个文件，如果不存在该文件，则创建该文件。 现在，我在其中记录了一些puts语句以进行调试。 现在在此过程结束时，我关闭文件。 但是在中间，我正在调用另一个proc，我也需要在该proc中将一些内容写入此打开的文件中。 所以我想做这样的事情：

proc ::myproc {args} { 
  set fp [open "C:\\log.txt" w+];
  puts $fp "Checkpoint 1";
  set retVal [::myprocII];
  puts $fp "Checkpoint 2";
  close $fp;
  return 1;
}

proc ::myprocII {} {
  set fp [open "C:\\log.txt" w+];
  puts $fp "Checkpoint 3";
  close $fp;
  return 1;
}

所以这不是错误或异常的原因，因为我在myprocII中打开了相同的文件并记录了数据并关闭了它。 然后，即使我在myprocII中关闭了文件，我仍然在调用proc myproc中记录数据。 我尝试进行测试，但是由于我是从批处理文件运行的，因此在我弄清楚错误是什么之前，该窗口已关闭。

因此，我想知道这是否正确，或者如何继续将来自不同过程的数据追加到同一日志文件中。

Answer 1

有几种选择：

• 使用1个文件描述符，在程序末尾将其关闭。

   proc log {data} { global logfd if {![info exists logfd] || $logfd == ""} { set logfd [open {C:\\log.txt} w] } puts $logfd $data } # before you exit, close it: catch {close $::logfd} 

  当程序终止时，Tcl应该在退出时自行关闭文件。

• 每次写入打开/关闭文件。 仅在追加模式下有用

   proc log {data} { set fd [open {C:\\log.txt} a] catch { puts $fd $data } res opt close $fd return -options $opt $res } 

  这不是性能最高的解决方案，但是很干净。

• 使用一些技巧

   rename open _open rename close _close proc open {path args} { global sharedfd if {$path eq {C:\\log.txt}} { if {[info exists sharedfd] && [dict exists $sharedfd fd]} { dict incr sharedfd refcount return [dict get $sharedfd fd] } else { set fd [_open $path {*}$args] dict set sharedfd fd $fd dict set sharedfd refcount 1 return $fd } } return [_open $path {*}$args] } proc close {fd args} { global sharedfd if {[info exists sharedfd] && [dict exists $sharedfd fd] && [dict get $sharedfd fd] eq $fd} { dict incr sharedfd refcount -1 if {[dict get $sharedfd refcount] <= 0} { _close $fd unset sharedfd } return } _close $fd {*}$args } 

  如果C:\\log.txt已打开，则返回相同的fd，保留refcounter，当refcount为0时关闭通道。
  请注意，这是黑客。 您可能不应该修改标准命令。