获取当前正在执行的TCl脚本的文件名

最新推荐文章于 2025-06-25 14:31:39 发布

tunaG

最新推荐文章于 2025-06-25 14:31:39 发布

阅读量7.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：工作问题文章标签： tcl 脚本 file path

本文链接：https://blog.youkuaiyun.com/gllg1314/article/details/7695746

工作问题专栏收录该内容

25 篇文章

订阅专栏

variable My_File [file normalize [info script]]
proc test { } {
variable My_File

#绝对路径
set path [file nativename $My_File]
#文件名

set filename [file tail $path]
puts $filename
}

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

tunaG

关注关注

0
点赞
踩
4

收藏

觉得还不错? 一键收藏
3
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

tcl脚本获取指定目录下的某个文件

chaihanlin的博客

04-30

1269

此外，一些操作系统或具体的文件系统可能会对模式匹配的结果影响，例如大小写敏感或不敏感。命令用于对文件名进行模式匹配。它返回与特定模式相匹配的文件和目录名列表。在Tcl（Tool Command Language）中，命令非常类似于大多数Unix shell中的文件匹配。时，需要根据运行环境的具体情况来遵循相关规则。等命令时，就需要手动使用。

TCL脚本 & SED & csh

weixin_59038209的博客

01-17

290

方式 ② ：先改变执行权限：chmod 755 test.tcl，然后./test.tcl运行脚本。sed -i 's/old/new/' filename : 修改文件中的old为new。在tcl脚本的第一行要加上：#!脚本运行方式：方式 ①直接运行：tclsh test.tcl;查询linux系统下是否有tcl解释器的命令：tclsh。查询tcl版本：info patchlevel。tcl脚本的文件名：test.tcl。source : 用来打开文件并执行。

3 条评论您还未登录，请先登录后发表或查看评论

tcl(剔扣)获取文件信息命令

12-21

剔扣语言操作文件命令，TCL提供了两个命令进行文件名操作：glob和file，用来操作文件或获取文件信息

tcl脚本如何判断是直接执行此脚本还是通过其他文件source此脚本

最新发布

rongxy_的博客

06-25

286

如果 info source 成功，说明 slv.tcl 是被其他脚本（如 main.tcl）source 的。# 不论是直接运行 slv.tcl，还是被 source，info script 都能获取 slv.tcl 本身的路径。# 如果 info source 报错，说明是直接运行 slv.tcl，而不是被其他脚本 source。# 如果 slv.tcl 是直接执行的（如 tclsh slv.tcl），info source 会出错。# 获取当前脚本自身的路径，并规范为绝对路径。

tcl脚本学习【文件读取】和 Windows 系统的文件名的大小限制

11-30

1079

set fp [open "D:/AAA/BBB/AAAAAAAAAABBBBBBBBBBCCCCCCCCCCAAAAAAAAAABBBBBBBBBBCCCCCCCCCCAAAAAAAAAABBBBBBBBBBCCCCCCCCCCAAAAAAAAAABBBBBBBBBBCCCCCCCCCCAAAAAAAAAABBBBBBBBBBCCCCCCCCCCAAAAAAAAAABBBBBBBBBBCCCCC...

tcl之文件操作-文件名相关

weixin_30568591的博客

09-14

1478

转载于:https://www.cnblogs.com/chip/p/5873928.html

获取当前脚本绝对路径

奥芝的专栏

05-06

971

1、Perl脚本 use File::Spec; my $path_curf = File::Spec->rel2abs(__FILE__); my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf); 2、shell脚本 #! /bin/sh filepath=$(cd "$(dirname "$0"

TCL脚本语言详细教程

06-13

- **脚本**: TCL脚本是由一系列命令组成的文本文件，这些命令被解释器按顺序执行。 - **命令**: 命令是TCL脚本的基本构建单元，每个命令由一个或多个单词组成。 - **单词**: 单词是命令的组成部分，包括命令名以及...

实用的Tcl脚本编程教程

05-23

### 实用的Tcl脚本编程教程 #### Tcl 脚本编程概述 Tcl（Tool Command Language）是一种脚本语言，广泛应用于自动化任务、快速应用程序开发、网络管理及脚本编写等领域。它具备易学易用的特点，同时也支持面向对象...

32位版本的TCL二进制脚本加载器

05-16

二进制脚本加载器是一种工具，它允许TCL解释器加载和执行预编译的二进制形式的TCL脚本。这样的加载器对于提高脚本的执行效率非常关键，尤其在需要频繁执行同一脚本或在性能要求较高的应用场景中。 32位版本的TCL二...

python如何执行tcl脚本

03-22

Python可以使用subprocess模块来执行tcl脚本，具体代码如下： import subprocess # 执行tcl脚本 subprocess.call(['tclsh', 'test.tcl']) 其中，test.tcl是要执行的tcl脚本文件名。

tcl语言读取文件一行_TCL语言（九）路径和文件

weixin_39855634的博客

12-22

1874

TCL语言(九)路径和文件(2009-12-28 16:33:33)标签：杂谈~/tcltk$ tclsh% file exists hello3.tcl1% file executable testit0% file pathtype ./hello3.tclrelative% set dir1 homehome% set dir2 brianbrian% set dir3 tcltktclt...

tcl/tk实例详解——返回一个文件夹下所有文件的绝对路径

热门推荐

dulixin的专栏

02-29

1万+

#所有代码如下，使用注释的方式讲解脚本#修改好文件夹和保存结果路径，可以把本文件直接拷贝进tcl解释器运行#脚本目的：返回一个文件夹下所有的文件的绝对路径#主要讲述和操作的命令cd、pwd、glob#次要命令：file、open、catch#脚本思想：使用递归返回所有的文件路径，可以遍历到所有的子文件夹#脚本以在window目录下为例，需要在其它系统下请修改路径名#需要返回文件路径的文

TCL info命令和文件路径提取

笨蛋大乌龟的博客

01-16

5324

如果当前有脚本文件正在 Tcl 解释器中执行, 则返回最内层处于激活状态的。今天在某个sdc中看到这样一句话，一下子触及到知识盲区了。否则将返回一个空的字符串。

03 tcl提取文件路径操作

qq_43352441的博客

08-01

8229

03 tcl提取文件路径操作 1 设置和拆分文件路径 (1) 设置文件路径名格式： file join dirlist dirlist ：路径元素列表，以空格隔开；返回值：返回dirlist 元素以（== ‘/’==）间隔开的路径名；范例： % set path [file join tcl program filename.tcl] tcl/program/filename.tcl % puts $path tcl/program/filename.tcl (2) 拆分文件路径名，生成

Tcl 访问文件

xiaoyuzhou1994的博客

01-06

2155

程序中常有处理文件和目录的需求。如获取文件最后一次访问时间、重命名文件、复制文件、删除文件、读写文件等。

Linux获取本机hostname函数,gethostname()函数 Unix/Linux

weixin_29769523的博客

05-03

1466

gethostname, sethostname -获取/设置主机名内容简介#include int gethostname(char *name, size_tlen);int sethostname(const char *name, size_tlen);描述These system calls are used to access or to change the host name of...

TCL info详解

l12366的博客

04-07

799

TCL

tcl脚本中的info用法

hzmscut的博客

10-12

1270

在中，info命令用于获取与程序执行状态相关的各种信息。它能够返回当前环境中的变量、命令、函数等的详细信息，是调试和控制流程时非常有用的工具。以下是info。

tcl脚本中如何获取当前文件的路径

06-01

<think>好的，用户现在的问题是在TCL脚本中如何获取当前文件的路径。之前他们询问过如何返回上一层目录，现在进一步需要获取当前路径本身。我需要结合之前的回答和用户提供的引用内容来给出解决方案。首先，回顾之前的回答，我提到过使用`filedirname`来获取父目录，但这次是当前文件的路径。用户提供的引用中，引用[1]和[2]提到了`filejoin`和`file normalize`的使用，引用[3]提到了跨平台路径处理。所以需要综合这些信息。用户可能是在编写脚本时需要知道脚本自身的位置，比如加载资源或处理相对路径的文件。因此，正确的当前文件路径获取方法很重要。TCL中，可以通过`info script`命令来获取当前执行脚本的路径，这是关键点。然后可能需要用`file normalize`来标准化路径，处理符号链接或相对路径的问题。另外，用户提供的引用[2]中的例子使用了绝对路径，但用户需要的是动态获取当前文件路径，所以必须使用`infoscript`。需要确保路径的格式正确，跨平台兼容，比如使用正斜杠，这在引用[3]中有提到。可能需要注意的问题包括：当脚本被其他脚本调用时，`info script`的行为是否正确；如何处理路径中的空格（用户之前的问题中有相关提问）；以及如何确保路径在不同操作系统下的正确性。引用[3]提到使用`filesplit`和`file join`来处理跨平台路径，所以可能需要建议用户使用这些命令来进一步处理路径。最后，生成相关问题时，要结合用户之前的问题，比如获取当前工作目录、处理带空格路径、遍历目录等，保持连贯性。</think>### 解决方案：在TCL中获取当前文件路径 #### 1. **基础方法：使用`info script`** TCL的`info script`命令可直接返回当前正在执行的脚本文件的完整路径[^1]。这是最直接且可靠的获取方式： ```tcl set current_script_path [info script] puts "当前文件路径：$current_script_path" ``` *示例输出*： ``` 当前文件路径：D:/scripts/test.tcl ``` #### 2. **路径标准化处理** 若路径包含相对符号（如`..`或`.`），需用`file normalize`转换为绝对路径： ```tcl set normalized_path [file normalize [info script]] puts "标准化路径：$normalized_path" ``` *示例输出*： ``` 标准化路径：D:/scripts/test.tcl ``` #### 3. **分离目录与文件名** 若只需获取文件所在目录（不包含文件名），结合`file dirname`： ```tcl set script_dir [file dirname [info script]] puts "脚本所在目录：$script_dir" ``` *示例输出*： ``` 脚本所在目录：D:/scripts ``` #### 4. **跨平台路径处理** 使用`file split`和`file join`确保路径格式兼容不同操作系统[^3]： ```tcl set path_parts [file split [info script]] ;# 拆分为列表，如 {D: scripts test.tcl} set unified_path [file join {*}$path_parts] ;# 自动适应系统分隔符 ``` ### 注意事项 - **`info script`的局限性**：仅在脚本执行时有效，若在交互式TCL Shell中直接调用会返回空值[^1]。 - **符号链接处理**：`file normalize`会解析符号链接，返回真实路径。 - **路径分隔符**：TCL内部使用`/`作为分隔符，Windows路径会自动转换（如`C:/test`）[^3]。 ### 应用场景示例 ```tcl # 加载同目录下的配置文件 set config_file [file join [file dirname [info script]] "settings.cfg"] source $config_file ```