tcl相关内容

如何在 TCL 中使用 itcl::delegation?

以下委托无效. 我如何让它工作? package 需要 itclitcl::extendedclass 尾 {方法摇摆{} {return "Wag, wag, wag";}}itcl::extendedclass 狗 {委托方法摇尾构造函数{} {设置尾 [尾 #auto]}}puts [信息补丁级别]把 $itcl::patchLevel狗狗狗摇 错误截图: 解决方案 翻来覆 ..
发布时间:2021-09-04 19:46:31 其他开发

如何为多个列表框(TCL)实现 tk 滚动条?

我尝试了各种选项,但没有成功为两个或多个列表框实现简单的滚动条.以下是我的代码在滚动时出错.我希望你们能帮助我... scrollbar .scroll -orient vpack .scroll -side left -fill y列表框 .lis1pack .lis1 -side left列表框 .lis2pack .lis2 -side left对于 {set x 0} {$x 谢谢. ..
发布时间:2021-09-04 19:46:28 其他开发

如何使用正则表达式在while循环中执行lappend

当我使用 while 循环使用正则表达式匹配变量时,我希望匹配的变量使用 lappend 形成一个列表.代码是 set file_name [打开文件名.txt r]设置新列表 [列表]而 {[获取 $file_name 行] >= 0} {regexp {cell \(\"(.*)\"} $line 匹配 cell_name如果 {[信息存在 cell_name] &&$cell_name ! ..
发布时间:2021-09-04 19:46:25 其他开发

使用 TCL 连接到 Microsoft SQL Server

是否有任何软件包可以让 TCL 查询 MS SQL Server? 我搜索并找到了以下接口或包: http://www.parand.com/tcl-sql/ http://sourceforge.net/projects/tcl-sql/ http://www.sqlite.org 如果没有这样的模块可用,你能提供一种有效的方法从 MS SQL Server 获取查 ..
发布时间:2021-09-04 19:46:22 数据库

Tcl/Tk:调整大小时帧行为异常.

我对 Tcl/Tk 比较陌生,但在过去的几周里一直在相当成功地使用它,不停地工作.在大多数情况下,它看起来相当简单.但是,我最近遇到了一个障碍,这可能很简单,但我似乎无法弄清楚. 我已将相当复杂的代码简化为几行来演示问题. 我的简单示例生成两个标签框,每个标签框带有一个简单的标签小部件.当我调整(即扩展)主窗口的大小时,我希望“左"框架仅在 y 方向上调整大小,而我希望“中间"框架在 ..
发布时间:2021-09-04 19:46:19 其他开发

在tcl中找到两个列表的交集

是否有一个命令可以让我获得两个列表的交集(出现在两个列表中的成员)? 例如,如果列表是: a b c d h 和 c e f g h 结果应该是c h 解决方案 假设你真正拥有的是一个集合(一个包含唯一元素的列表),你可以使用 tcllib: ::struct::set 相交?set1... ? 包需要Tcl 8.0包需要 struct::set设置列表 1 {a ..
发布时间:2021-09-04 19:46:16 其他开发

如何使用 tcl 中的拆分删除不需要的字符

这是一个例子 接口 {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} IP 地址 {} {} {}{} {} 好的?方法状态 {} {} {} {} {} {} {} {} {} {} {} {} {} {} {} {ProtocolFastEthernet0/0} {} {} {} {} {} {} {} {} {} {} {} 未分配 {} ..
发布时间:2021-09-04 19:46:14 其他开发

如何从测试本身获取 TCL 测试的名称

我想知道如何从测试本身找到您在 tcl 中运行的测试的名称?我在谷歌上找不到这个. 我正在调用另一个过程并将调用它的测试的名称作为参数传递.所以我想知道哪个 tcl 命令可以为我做到这一点. 解决方案 这不是一个鼓励的用例……但是如果你直接在里面使用它,你可以使用 info frame 1 来获取信息测试. proc 示例 {contextTest} {puts "从 $conte ..
发布时间:2021-09-04 19:46:10 其他开发

? 的用例:在 tcl regexp 中

我在 tcl regexp 中阅读了 ?: 的文档.这表示它匹配一个表达式而不捕获它. 我试过了,效果很好.我的问题是,这个选项的正确用例是什么,因为我们不想使用捕获序列,我们不会在那里放括号. 它只是一种替代方式,还是有一些特殊情况,我们应该在哪里使用它?请澄清. 解决方案 简单:您需要将 Regex 中的多个元素分组,但不需要将它们作为捕获组以供参考. a+ (b+|c+ ..
发布时间:2021-09-04 19:46:04 其他开发

Tcl eval 命令是否阻止字节编码?

我知道在一些动态的解释性语言中,使用 eval 会减慢速度,因为它会停止字节编码. 在 Tcl 8.5 中是这样吗? 谢谢 解决方案 它不会阻止字节码编译,但无论如何它都会减慢速度.关键问题是它可以防止字节码编译器在编译期间访问局部变量表 (LVT),强制通过哈希查找来访问变量.Tcl 有一个超快的哈希算法(我们已经对它进行了很多基准测试并尝试了很多替代方法;它是非常 热门代码)但是 ..
发布时间:2021-09-04 19:45:59 其他开发

Tcl 8.4 和 8.5 中的 keylset 错误?

考虑以下简单练习: package 需要 Tclxkeylset myArray "v1.5" "ready"把 $myArray 预期输出: {v1.5 就绪} 实际输出: {v1 {{5 ready}}} 我的问题是 这似乎是 keylset 中的错误,我已在 8.4 和 8.5 上确认了此行为 我该如何解决?我尝试了几种方法来引用密钥,但无济于事. 解决方案 这不 ..
发布时间:2021-09-04 19:45:56 其他开发

体面的交互式TCL外壳

TCL 有没有类似 iPython notebook 的东西? 或者至少,一个可以让我使用 ctrl-f、ctrl-b、ctrl-a 等而不用 ^B 等填充 shell 的 shell. 解决方案 看看 tkcon 我喜欢 rlwrap tclsh -- 查看您的操作系统的软件包存储库是否有它,或者从 github ..
发布时间:2021-09-04 19:45:53 其他开发

快速字符串替换

在构建一个可能非常大的字符串后,我将把其中的单个字符(或字节,如有必要)更改为另一个字符. 实际上,我的脚本正在构建一个填字游戏,所以字符串不会很长,但我的问题很一般: 如何利用我没有改变字符串(或任何更好的数据类型)长度这一事实来加快速度? 我想我正在寻找的部分内容是发送指向字符串的指针或引用的方法,或者在 Tcl 的情况下发送变量名. 我的另一个问题是 C 代码内部发生 ..
发布时间:2021-09-04 19:45:50 其他开发

Tk 框架内的 Chrome 网页

我想在 Tcl Tk 框架内运行我的 chrome 页面.而且我必须从 Windows 平台运行我的脚本......到目前为止,我可以使用 start 命令启动 chrome 页面.如何将我的 chrome 页面包含在 Tk 窗口中? eval exec [auto_execok start] http://www.gmail.com 谢谢 解决方案 我不认为你能做到这一点.您可以使用 ..
发布时间:2021-09-04 19:45:47 其他开发

正则表达式文字-文本跨度

有什么方法可以向正则表达式指明要显式搜索的文本块吗?我问是因为我必须匹配一段非常长的文本,其中包含各种元字符(并且(并且必须完全匹配),然后是一些灵活的东西(足以值得使用正则表达式),然后是更多的文本必须完全匹配. 冲洗,重复. 不用说,我真的不想遍历整个事情并且不得不转义每个元字符.这只是让它读起来很不舒服.有没有办法包装这些部分,这样我就不必这样做了? 编辑: 具体来说 ..
发布时间:2021-09-04 19:45:44 其他开发

Tcl 正则表达式

set d(aa1) 1设置 d(aa2) 1设置 d(aa3) 1设置 d(aa4) 1设置 d(aa5) 1设置 d(aa6) 1设置 d(aa7) 1设置 d(aa8) 1设置 d(aa9) 1设置 d(aa10) 1设置 d(aa11) 1设置正则表达式“a*\[1-9\]"设置 res [数组名称 d -glob $regexp]把“res = $res" 在这种情况下,结果是: r ..
发布时间:2021-09-04 19:45:41 其他开发

TCL字符串操作和提取

我有一个字符串 xxxxxxx-s12345ab7_0_0_xx2.log 并且需要在 TCL 中有一个类似 AB700_xx2 的输出. ab 将是分隔符,需要从 ab 提取到 .(包括 ab),并且必须只删除前两个下划线. 试过string trim、string trimleft 和string trimright,但用处不大.TCL中有没有类似string split的东西? ..
发布时间:2021-09-04 19:45:39 其他开发

执行tclsh时需要什么shell

#!/bin/sh# Tcl 注释,其内容无关紧要 \执行 tclsh "$0" "$@" 为什么要在这里调用shell (#!/bin/sh) 我们可以直接调用 tclsh (#!/usr/sbin/tclsh) .让我们假设 tclsh 在 sbin 目录中. 为什么我们首先调用 shell,然后在 shell 中再次调用 tclsh 解释器. 为什么人们更喜欢使用这些 ( ..
发布时间:2021-09-04 19:45:36 其他开发