目录
0 引言
1 file 命令
2 管理当前工作目录和内容—— pwd cd glob
3 复制和重命名操作
4 批量操作
5 获取文件信息
0 引言
Tcl 中处理文件和目录的命令是非常重要的，因为在 Tcl 中，文件和目录的处理是非常常见的操作。例如，一个 Tcl 脚本可能需要读取一个配置文件，或者需要创建一个新的日志文件，或者需要遍历一个目录中的所有文件，这些都需要使用文件和目录处理命令。此外，这些命令还可以帮助开发人员更好地管理文件和目录，确保文件和目录的安全性和可靠性。
1 file 命令
file 命令用于获取文件的属性
file 命令
命令解释file dirname返回文件的目录部分file tail返回文件的文件名部分file extension返回文件的扩展名部分file nativename返回原生格式的文件名file rootname返回除扩展名之外的部分file split返回分割后的字符串部分file joinfile split 的逆操作
# 假定一个文件，这里用花括号是因为文件名中有空格
set file {C:/Program Files/Tcl/tclsh.exe}
# file dirname 获取文件的目录部分
puts [file dirname $file]
# file tail 获取文件的文件名部分
puts [file tail $file]
# file extension 获取文件的扩展名
puts [file extension $file]
# file nativename 获取文件在本地磁盘上的完整路径
puts [file nativename $file]
# file rootname 获取除扩展名之外的部分
puts [file rootname $file]
# file split 按照正斜线分割，返回各部分字符串
puts [file split $file]
# file join 是split命令的逆过程
puts [file join C:/ {Program Files} Tcl tclsh.exe]
2 管理当前工作目录和内容—— pwd cd glob
在计算机中，相对路径和绝对路径都是用来描述文件或者目录在系统中的位置。
绝对路径：是文件或者目录的完整路径。从根目录开始，一直到文件或者目录的位置。例如 Windows 中可能长这样 C:\Users\username\Documents\example.txt 。Linux 中的绝对路径可能长这样 /home/username/Documents/example.txt 。C:/Program Files/Tcl/tclsh.exe 就是一个绝对路径，因为它从根目录开始，一直到 tclsh.exe 文件的位置。
相对路径：是文件或目录相对于当前工作目录的路径。例如，如果当前工作目录是 /path/to/directory ，那么 ./file.txt 就是相对路径。因为它指向当前工作目录下的 file.txt 文件。同样，../parent_directory/file.txt 也是相对路径。因为它指向当前工作目录下的父目录下的 file.txt 文件。
管理当前工作目录和内容
命令解释pwd返回当前工作目录的绝对路径cd切换到参数指定的目录glob获取当前工作目录下的内容
Tcl 提供了两个命令来管理当前工作目录：pwd（print working directory） 和 cd （change directory）。其中 pwd 直接返回当前工作目录的绝对路径，cd 接一个参数，切换到该参数指定的工作目录。 cd .. cd 命令后接两个英文句号用于返回上一级目录。
puts [pwd] ;#输出 F:/TCL
file mkdir 22 33 ;# 创建两个目录
file delete ./22/3.tcl ;#使用相对路径删除22目录下的3.tcl文件
cd ./22 ;# 切换至当前目录的子目录22
file delete 1.tcl ;#删除1.tcl文件
eval file delete {*}[glob *.tcl] ;#通过glob命令批量删除以.tcl为扩展名的文件
# 这里33目录为非空目录，也就是里面有文件存在
file delete 33 ;#error deleting "22": directory not empty
file delete -force 33 ;# 需要 -force 关键字来删除
3 复制和重命名操作
file copy 复制操作
用于将源文件复制到目标文件中，file ./path1/file.txt ./path2/file.txt 。如果目标文件已存在则会报错。此时可以使用 file copy -force ./path1/file.txt ./path2/file.txt 。来实现，覆盖已存在的文件。还可以将多个文件复制到目标目录中。
# 复制源文件至指定目录下的文件中
file copy ./10_Tcl_file/10.2.tcl ./22/1.tcl
# 复制文件至指定目录
file copy ./10_Tcl_file/10.2.tcl ./10_Tcl_file/10.1.tcl ./22
file rename 重命名操作
可以对目录和文件进行重命名操作，如果目标名称已存在，则会报错，可以通过 -force 关键字来覆盖源文件。
如果 file rename 的目标名称指向了新目录，则会将源文件移动到新目录下。
file rename -force ./11/444.tcl ./22/33.tcl
上述命令实际起到了将 11 这个目录下的 444.tcl 文件移动到 22 这个目录下的 33.tcl 文件。
4 批量操作
借助 file rename 的机制，便可实现将一批文件从原来的目录移动到指定目录下。
proc move_to_dir {filename directory} {
foreach i_fn $filename {
file rename $i_fn $directory
}
}
set filename [glob ./9_Tcl_namespace/*.tcl]
puts $filename
set directory ./11
move_to_dir $filename $directory
通过上述的 proc 我们将 ./9_Tcl_namespace/ 这个目录下的 .tcl 文件全部移动到 ./11 这个目录下了。
5 获取文件信息
获取文件信息命令
命令解释file exists当前文件或目录是否存在file isfile判断指定内容是否为文件file isdirectory判断指定内容是否为目录file type返回指定内容的类型file readable判断是否有可读权限file writable判断是否有可写权限file executable判断是否有可执行权限
说明，当前目录中不存在 22 这个目录，存在 11 这个目录。
puts [file exists 11] ;# 指定目录是否存在 存在 返回1
puts [file exists 22] ;# 指定目录是否存在 不存在 返回0
puts [file isfile 11] ;# 判断是否为文件
puts [file isdirectory 11] ;# 判断是否为目录
puts [file type 11] ;#返回类型 目录
puts [file type ./10_Tcl_file/10.3.tcl] ;#返回类型 文件
puts [file readable ./10_Tcl_file/10.3.tcl] ;# 是否可读
puts [file writable ./10_Tcl_file/10.3.tcl] ;# 是否可写
puts [file executable ./10_Tcl_file/10.3.tcl] ;# 是否可执行
Tcl 还提供了一个更简单的一次性获取文件的各种信息的命令： file stat XXXX arrayName 各个关键字的具体信息就不写了。
file stat ./10_Tcl_file/10.3.tcl file_info
parray file_info