tcl相关内容

使用 Tcl 在 if 语句中评估表达式为真

我正在努力弄清楚如何使用 Tcl 计算 If 语句中的表达式.这就是我所拥有的: #!/bin/sh#下一行执行wish - 无论在哪里\执行希望“$0"“$@"设置 api"/var/run/apache2.pid"设置 apsta [文件存在 $apid]如果 { $apsta == 1 }{设置结果":)"}别的{设置结果 ":("}标签 .status -text $result打包状态 ..
发布时间:2021-09-04 19:50:37 其他开发

Tcl_AsyncDelete 错误.无法终止 Tk

我在 ROS 节点中使用 Tkinter 创建 GUI 并将比例值发布到另一个 ROS 节点.我已经做到了.当我尝试关闭此 GUI 并重新运行节点时,问题就出现了.我得到的日志信息如下: Exception RuntimeError: 'main thread is not in main loop' in ..
发布时间:2021-09-04 19:50:34 Python

如何使用 Tcl/Tk 在画布中绘制 x 轴

我想绘制一个关于时间的 x 轴,为此我有一个包含时间值的列表.是否可以在 tk 画布中显示? 解决方案 您可以轻松地在 Tk 画布中绘制图形.您只需确定您真正想要绘制的点(即组合 X 和 Y 值).改编自该页面上的代码: 设置宽度100设置高度 100包 [画布 .c -width $width -height $height]# 假设你在 $data 中有一个点列表设置计数 0fore ..
发布时间:2021-09-04 19:50:31 其他开发

如何在 Ruby TK 中使用画布制作可滚动框架?

我需要滚动包含多个标签的框架. 由于框架不可滚动,所以我选择使用包含带有这些标签的框架的画布. 但这将是我第一次使用画布,所以我真的不知道从哪里开始,我最终得到了这个代码: canvas=TkCanvas.new(root) {grid :row =>0, :column =>0}frame=TkLabelframe.new(canvas) {grid :row =>0, :colu ..
发布时间:2021-09-04 19:50:28 其他开发

无效的命令名称“Agent/LeachAgent"

我尝试为 LEACH 协议实现一个简单的场景,但出现此错误: 创建传感器 ...无效的命令名称“Agent/LeachAgent"执行时“Agent/LeachAgent 创建 _o2340"从内部调用"catch "$className 创建 $o $args" msg"从内部调用"if [catch "$className create $o $args" msg] {if [字符串匹配“ ..
发布时间:2021-09-04 19:50:25 其他开发

如何在 R 中访问和修改 Tcl/Tk 对象的同级对象

简而言之: 我在 R 中使用 tcltk 包.但非 R 用户也可能会提出想法并提供 R 以外的其他语言的示例.我在 R 中有一个 Tcl/Tk 对象列表..1.1.1.1 .1.1.1.2 .1.1.1.3 并且想分别访问和修改每个对象.我该怎么做? 或者如果我有按钮 A 对象,我如何访问和修改按钮 B 对象? 详情: 我有以下小部件: 创建它的代码: 库(tclt ..
发布时间:2021-09-04 19:50:23 其他开发

TCL/TK 中的 SED 和 TCL 中的任何其他等效命令

我现在正在尝试使用“过程调用"将值从 TK 传递到 cshell 脚本......如下所示. proc 运行 {} {全局传递值##查看它对passedvalue有什么值把 $passedvalueexec sed -i {s/ABC/$passedvalue/g} runme.shexec/bin/csh -c ./runme.sh >@stdout 2>@stderr} 我正在通过新的传递 ..
发布时间:2021-09-04 19:50:20 其他开发

使用 TCL 比较 2 个文件之间的列

我有 2 个文件,只有一列.说 file1.txt 和 file2.txt.下面是文件里面的内容file1.txt里面 汤姆哈利下雪爱德华 在 file2.txt 内 哈利汤姆爱德华 2) 我想编写一个代码来检查列中的每个项目并打印如下内容. "Tom, Harry, Edward" 出现在两个文件中雪在 file1.txt 中有但不在 file2.txt 中 3) 基本代码 设置 ..
发布时间:2021-09-04 19:50:16 其他开发

在 Tcl 中获取按年龄(mtime)排序的文件列表的命令

我正在尝试使用 Tcl 简单地处理目录中的文件列表,但想按年龄顺序处理它们(从最旧的 mtime 到最新的).我希望 glob 或 lsort 中的某种参数按文件 mtime 排序,但我没有看到这样的选项. 我试图避免创建自定义函数来执行此操作 是否有我缺少的选项可以内置此功能? 解决方案 我不知道,但您当然可以使用适当的选项exec系统的文件列表命令. 使用 mtime ..
发布时间:2021-09-04 19:50:13 其他开发

Tcl 变量的存储容量

我只是想将整个文件存储在 tcl 变量中.所以让我知道,Tcl 变量的存储容量是多少? 解决方案 Tcl 的当前限制为 2 GiB(即使在 64 位系统上,因为用于实体大小的类型中存在旧的 API 缺陷)用于C 级别的任何“对象"的大小.对于字符串,这意味着为了安全起见,您可能需要坚持少于大约 10 亿个字符(尽管确切的限制会因您正在执行的操作的细节而异).对于列表,在 32 位机器上,这 ..
发布时间:2021-09-04 19:50:10 其他开发

使用 tcl 在 vi​​vado 中编程设备

我正在尝试通过 vivado 命令行对我的 digilent FPGA 进行编程.打开硬件服务器后,我可以对我的设备进行如下编程... program_hw_devices [get_hw_devices xc7a100t_0] 然后,如果我运行 puts [get_hw_devices xc7a100t_0] 它输出 xc7a100t_0 这让我认为我应该能够做一些像 program_hw_ ..
发布时间:2021-09-04 19:50:07 其他开发

如何使用 TCL/tcom 在 Excel Sheet 单元格中存储数组元素

我想在 Excel 工作表中存储数组元素.我怎样才能做到这一点?这是数组的示例代码: for {set i 0} { $i 3} {增加我} {设置颜色($i) $i} 现在如何在不同的单元格中存储颜色(0)、颜色(1)、颜色(2)? 编辑:基于这个 tcom 示例,我一直在尝试将数组元素存储在 Excel 中表. 解决方案 查看命令 数组集和数组获取. for {set i ..
发布时间:2021-09-04 19:50:04 其他开发

TCL在特殊边界内抓词

反对:获取“{"“}"边界内的所有单词. input_file.txt: set_false_path -from [get_ports {a/b[1] ab/cd_1 abcd_1_ad_}] -through [get_pins {th/th1 th2/th2[2]}]set_derate -whatever [get_ports {xxx/xx1 xxx xxxx_1}]set_fa ..
发布时间:2021-09-04 19:50:01 其他开发

如何计算一系列方程?

我遇到一个问题,如果我从一个文件中得到几个方程,例如: na = 1.350拉姆达 = 0.2段 = 2*na*Lambdamag = 4结果 = mag+Seg*3 我怎样才能得到结果的真正价值?谢谢! 解决方案 嗯,你需要的是一点点解析和一点点映射,当然还有一些对 eval 的创造性使用.> #假设文件内容是一个大字符串,$equations数组集变量 {}设置地图{}forea ..
发布时间:2021-09-04 19:49:58 其他开发

传递给 join 的列表不会产生正确的输出

我使用以下方法收集了一些信息: proc getJobinfo {问题} {puts -nonewline "$question: "刷新标准输出得到标准输入答案设置已清洁的答案 [字符串修剪 [::textutil::string::capEachWord $answer]]如果 {$cleanedanswer eq ""} {throw {Value Empty} {输入不能为空!}}返回 ..
发布时间:2021-09-04 19:49:55 其他开发

llength 没有返回正确的列表大小

我有一个包含以下元素的列表. test = {a[1] b[60] c[25] c[36]} 我正在检查测试的长度如下: 设置结果[llength($test)] 这给了我以下错误: 大括号中的列表元素后跟“)"而不是空格 可能是什么问题? 提前致谢. 解决方案 您可能需要复习 Tcl 语法 不要在 llength 的参数周围加上括号. set x {test = ..
发布时间:2021-09-04 19:49:52 其他开发

在 Tcl 脚本中调用的 sed 命令中使用变量

我想在 tcl 脚本中使用以下命令: sed -n '452,$ {/wire/{p;q} }'/tmp/foo 为此,我已将此命令更改如下: set MIDLINE2 [ exec sed -n {1134,$ {/wire/{=;q}}} foo.txt ] 它给了我正确的答案,但在 1134 的位置我想使用值为 1134 的变量 $MIDLINE.我该怎么做?请提出一些建议. ..
发布时间:2021-09-04 19:49:49 其他开发

运行 tcl 脚本时的后台进程是什么?

当您启动 tcl 脚本时,发生的后台进程是什么.(类似于c编译)? 当您启动 expect 时,脚本进程如何工作? 解决方案 假设你已经有一个正在运行的 Tcl 解释器,并且只需 source 你的脚本来运行它(这避免了描述整个解释器启动序列和初始化),在任何最近的 (8.x) Tcl 解释器中都会发生以下事情. 这基本上调用了一些 C 代码,如 Tcl_EvalFile() ..
发布时间:2021-09-04 19:49:46 其他开发

如何计算到达目的地( NS2 )的跳数?

在 NS2 ..in TCL 文件中,如何计算一条路径中到达无线网络目的地的跳数? 我需要你的帮助. 解决方案 你必须在协议的代码中这样做... 首先我不知道你要使用哪种协议,还好ns2中的协议非常相似...所以我会指导你如何去做. 我将使用 AODV 协议作为示例... 理论上: 我们会说当一个 RREQ 数据包到达时,增加当前路由的数据包跳数... 这是最简 ..
发布时间:2021-09-04 19:49:43 其他开发

在取消设置跟踪变量时触发错误

我正在尝试创建一些只读变量,以便与在安全 interp 中评估的代码一起使用.使用 trace,我可以在尝试设置它们时生成错误,但在使用 unset 时不会: % 设置 foo bar酒吧% trace 添加变量 foo {unset write} {apply {{var _ op} { 错误“$var $op 跟踪被触发"}}}% 设置 foo 栏无法设置“foo":触发了 foo 写入跟踪 ..
发布时间:2021-09-04 19:49:41 其他开发