tcl相关内容

TK/TCL,无法理解这个井字游戏代码片段

谁能帮我解释一下下面的代码片段是做什么的.此代码片段取自 http://wiki.tcl.tk/12374.它旨在创建一个井字游戏.用于理解 Tk/Tcl 的资源并不多,所以这给我带来了很大的困难. proc DrawBoard {{redraw 0}} {全球 S B 游戏 Cif {$redraw} { ;# 必须重绘一切.c 删除所有set w2 [expr {$B(w2) - 15}] ..
发布时间:2021-09-04 19:49:38 其他开发

Tcl/Tk:当用户改变窗口大小时如何缩放小部件

我有一个窗口,里面有小部件.当我手动重新调整窗口大小时,小部件会在高度减小时自行缩放,但在宽度更改或高度扩大到初始高度之外时不会.如何使小部件堆叠到窗口的边框? 创建窗口的代码: wm title $base "KitKite Sparam Viewer"设置 frm_main [框架 $base.main_frm]打包 $frm_maingrid [frame $frm_main.gra ..
发布时间:2021-09-04 19:49:35 其他开发

如何使用TCL删除字符串中的字符

我有以下字符串 “TCL 被称为“工具命令语言",TCL 被称为“工具命令语言"命令语言",TCL被称为“工具命令语言"" 从上面的输入我想要一个像下面这样的输出 "TCL被称为工具命令语言,TCL被称为工具命令语言,TCL 被称为工具命令语言" 即只应在输出中显示第一个和最后一个双引号,其他的都应删除,有人可以告诉我实现此目的的不同方法 解决方案 有很多方法.我试 ..
发布时间:2021-09-04 19:49:32 其他开发

如何在 vwait 中的每次迭代后永远评估给定的脚本?

vwait永远运行事件循环直到 exit 命令. 在事件循环的每次迭代中,我都有一些事情要做.我该怎么做? 解决方案 你没有.你要做的是安排定期的计时器事件来完成你的工作.对于用户交互,每秒 10 次相当就足够了.要安排定期计时器事件,请使用 Tcler Wiki 中的 every 命令,例如这个: proc 每 {ms body} {after $ms [info level 0 ..
发布时间:2021-09-04 19:49:29 其他开发

Tcl 中的命令行解析

我有一个需要许多短选项和长选项的脚本,我想知道解析命令行参数的最有效方法是什么.使用 for-each 和 if-else 会使代码过长且难以修改,那么是否有任何标准函数可以帮助我(例如 getopt for C)? 解决方案 我们讨论了这个 四天前 并发布了一些建议. 还有 cmdline Tcllib 中的包. ..
发布时间:2021-09-04 19:49:26 其他开发

根据提交按钮更改隐藏输入字段的值

我的页面中有多个表单,根据隐藏的输入值,调用了不同的部分. 现在我的问题是,我的一个表单中有 2 个输入按钮,根据我单击的按钮,我需要发送适当的隐藏输入类型, 例如在下面的表格中.如果我点击生成密码按钮,我想要目标值(隐藏输入字段的值)作为 generate_password 如果我点击锁定密码,我希望目标值是 user_locked.这是我的代码. puts ""puts ..
发布时间:2021-09-04 19:49:23 前端开发

使用以分号结尾的单词的列表?

有没有一种方法可以将以分号结尾的字符串(单词)添加到列表中,而列表本身又不是单项列表? 我正在处理字符串并将它们分解成单词;并且标点符号通常作为后缀附加.我需要同时使用两个词,即带标点和不带标点. 是否可以简单地让它成为列表中的列表,并像引用单项列表一样引用所有单词?它似乎有效.或者有没有更好的方法? 谢谢. set list { a;b c d }陈把标准输出$list;# ..
发布时间:2021-09-04 19:49:20 其他开发

如何为英特尔编译器自动生成模块文件

您知道一种无需使用 env2 脚本即可为英特尔编译器自动生成模块文件的方法吗? 解决方案 使用最新版本的模块 (v4.6+),module 命令获得了一个名为 sh-to-mod 翻译环境变化由给定的脚本执行到模块文件命令中. $ module sh-to-mod sh/path/to/foo-1.2/foo-setup.sh arg1#%模块前置路径路径/path/to/foo-1.2 ..
发布时间:2021-09-04 19:49:12 其他开发

TCL脚本中的浮点异常

我正在使用 ns2 模拟器和 tcl 脚本.在执行以下代码时,它引发了浮点异常错误.在我更改以下代码部分中的速率值之前 $ns duplex-link $n0 $n2 2.0Mb 10ms RED$ns 双工链路 $n1 $n2 2.0Mb 10ms DropTail$ns 双工链路 $n2 $n3 1.1Mb 20ms DropTail$ns 双工链路 $n3 $n2 1.2Mb 10ms D ..
发布时间:2021-09-04 19:49:09 其他开发

在 Tcl shell 中获取 Tcl 脚本时,如何让 Tcl 将脚本中的每个 Tcl 命令打印到 shell?

运行我们的软件将在终端中启动一个 Tcl shell,然后我们可以通过 tcl 脚本文件在这个 Tcl shell 中执行一系列 tcl 命令.但是tcl脚本文件中的tcl命令不会被打印到Tcl shell上,所以我们看不到tcl脚本源码执行了哪些命令. 所以我的问题是,当脚本为源代码时,是否有任何 Tcl 配置可以打印出脚本中的命令. 以下是一个示例 tcl 脚本 # sample ..
发布时间:2021-09-04 19:49:06 其他开发

在tcl中的文件中捕获多个空行

我的文件中有 4 个空格,在 wr_fp 中设置.我想在代码中捕获四个空格.但下面的代码不起作用. while {[gets $wr_fp line3] >= 0} {if {[regexp "\n\s+\n\s+\n\s+\n" $line3]} { puts "found 4 empty lines"}} 解决方案 tl;dr: 不要把 RE 放在 "quotes",把它们放在{大括号} ..
发布时间:2021-09-04 19:49:00 其他开发

从文件中完全按照它们出现的方式读取行

我正在读取一个文件,需要找到确切的行 $(eval $(call CreateTest KEYWORD) 以及该行之后的所有内容(因为其余部分都是随机的).这就是我的方式我目前正在尝试找到它,但它总是报告没有找到匹配的内容. proc listFromFile {$path1} {set find {$(eval $(call CreateTest, KEYWORD}upvar 路径 1 路径 ..
发布时间:2021-09-04 19:48:57 其他开发

使用 tcl 验证 ip 地址

你好frnds m 在这个程序中遇到了问题..cn 任何告诉我我哪里出错了??无法验证 255.255.255.255 ip 地址 输入“输入有效的 IP 地址:"设置字符串 [获取标准输入]if {[regexp {^([1-9]|[1]\d{2}|[2][0-4]\d|25[0-5])((\.\d{0,2}|1\d{2}|2[0-4]\d|25[0-5]){3})$} $string 匹配 ..
发布时间:2021-09-04 19:48:54 其他开发

我如何使用“after ms script"?在TCL?

我正在尝试弄清楚如何在 TCL 8.6.0 版中使用“after".这是我尝试过的: proc async {} {设置状态等待放置“超时前 $state"set id [after 1000 {set state timeout}]放置“等待超时 $state"2000年后放置“超时后 $state"}异步 输出: 超时前等待等待超时等待超时后等待 预期输出: 超时前等待等待超时等待超 ..
发布时间:2021-09-04 19:48:52 其他开发

生成N个有效IP地址的脚本?

我是 TCL 的新手,并试图通过编写一些简单的脚本来学习,我已经开始编写一个简单的脚本,该脚本从给定的起始 ip 地址生成有效的 ip 地址. 我已经设法写了一个,但遇到了两个问题, 最后一个八位字节在数字 192.168.1.025 前面添加了一个零 当我指定像这样的起始 ip 250.250.5.1 时,它无法生成正确的 ip, 下面是我的代码: proc generat ..
发布时间:2021-09-04 19:48:49 其他开发

如何使用 Critcl ByteArray?

我想试用 Critcl 以使用 Z 阶曲线 用于二维网格.我需要从 Critcl 获得的是分配、setter、getter 和一些大小信息.阅读 Critcl ByteArray 和 examples 并没有让我对如何做这件事充满信心. 如何创建和返回一个 ByteArray(即 Z 阶曲线)? 在使用 ByteArray 时我应该知道哪些注意事项? 解决方案 根据文档,您应该 ..
发布时间:2021-09-04 19:48:39 其他开发