TCL——访问文件（一）

目录

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 join	file 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