UNIX“cp -pL”命令的Tcl等价物

Question

UNIX“cp -pL”命令的Tcl等价物是什么？ 我在file command说明

中找不到它

Answer 1

对于单个文件： a）获取文件的真实路径。 b）复制它。 c）设置属性，修改时间和访问时间。

不幸的是，似乎没有任何方法可以设置更改时间（Windows上的创建时间）。

set fn sourcefn
set tofn targetfn
set nfn [file normalize [file readlink $fn]]
file copy -force $nfn $tofn
foreach {key} [list attributes mtime atime] {
  set temp [file $key $nfn]
  file $key $tofn {*}$temp
}

这是纯粹的Tcl解决方案，适用于unix，Mac OS X和Windows。当然你可以这样做：

exec cp -pLf $from $to

参考文献：file