TCL——访问文件（一）

1  file 命令

2  管理当前工作目录和内容—— pwd cd glob

3  复制和重命名操作

4  批量操作

5  获取文件信息

0  引言

Tcl 中处理文件和目录的命令是非常重要的，因为在 Tcl 中，文件和目录的处理是非常常见的操作。例如，一个 Tcl 脚本可能需要读取一个配置文件，或者需要创建一个新的日志文件，或者需要遍历一个目录中的所有文件，这些都需要使用文件和目录处理命令。此外，这些命令还可以帮助开发人员更好地管理文件和目录，确保文件和目录的安全性和可靠性。

1  file 命令

file 命令用于获取文件的属性

# 假定一个文件，这里用花括号是因为文件名中有空格
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 文件。

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  获取文件信息

说明，当前目录中不存在 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