Tcl 8.5.9中如何检查带URL编码的file:URL文件是否存在？

核心结论 #

Tcl 8.5.9确实没有内置的URL解码命令，你并没有遗漏。要检查这类URL对应的文件，最简流程是提取URL中的路径部分 → 解码路径 → 用file exists验证。

手动实现URL解码（无需额外库） #

如果不想依赖第三方库，可以自己写一个轻量的URL解码过程，针对file:URL的场景足够用：

proc urldecode {str} {
    # 替换所有%XX格式的编码为对应字符
    regsub -all {%([0-9A-Fa-f]{2})} $str {[binary scan "\x\1" H2 c; format %c [scan $c %x]]} str
    return [subst $str]
}

然后处理file:URL并检查文件：

set target_url "file:///home/user/doc%20with%20spaces.txt"
# 移除URL开头的file://前缀
regsub {^file://} $target_url {} encoded_path
# 解码路径
set local_path [urldecode $encoded_path]
# 验证文件存在性
if {[file exists $local_path]} {
    puts "目标文件存在"
} else {
    puts "目标文件不存在"
}

关于内置方法的补充 #

Tcl 8.5.9没有任何内置命令可以直接处理file:URL或做URL解码，::http::geturl确实只支持HTTP/HTTPS类协议，不处理file协议。

新版本Tcl的改进 #

从Tcl 8.6开始，http包新增了::http::decodeurl命令，可直接完成URL解码；同时Tcllib的uri包（在8.6中依然可用）提供了更完善的URL解析能力，包括拆分file:URL的各个组成部分。

推荐第三方库（Tcllib的uri包） #

如果可以安装第三方库，Tcllib的uri包是最优选择，它能直接解析file:URL并处理解码：

package require uri
set target_url "file:///C:/Users/Admin/My%20Docs/note.txt"
# 拆分URL为各部分（协议、路径等）
array set url_parts [::uri::split $target_url]
# 解码路径
set local_path [::uri::decode $url_parts(path)]
# 检查文件
if {[file exists $local_path]} {
    puts "文件存在"
}

内容的提问来源于stack exchange，提问作者XDR