2回答
我在TCL中遇到了以下问题。在我的应用程序中，我将非常大的文本文件(大约几百MB)读入TCl列表。然后，该函数将列表返回到主上下文，然后检查是否为空。下面是代码快照：
set merged_trace_list [merge_trace_files $exclude_trace_file $trace_filenames ]
if {$merged_trace_list == ""} { ...
我在“如果”线上撞车了。崩溃似乎与内存溢出有关。我认为与"“的比较会迫使TCL将列表转换为字符串，而且由于字符串太长，这会导致崩溃。然后，我将前面的"if“行替换为另一
浏览 3提问于2015-10-24得票数 1
回答已采纳
我有字符串输出：
1 4 2 1 4
我想让字符串中的每个字符进行比较。我这样做是想知道列表是否已经排序。
浏览 11提问于2021-04-19得票数 0
2回答
我正在编写一个Expect脚本，每次在AWS上产生一个新的服务器实例时，都会从我们的开发服务器中提取最新的代码。这个想法是，当创建新服务器时，脚本在引导时运行，然后放在负载均衡器后面。它工作得很好，除非Git因为冲突而中止。以下是到目前为止的代码：
#!/usr/bin/expect -f
set timeout 240
spawn /xyz/pullfromdev
expect "*?assphrase*"
send -- "<mypass>\r"
expect {
"Aborting" {
浏览 1提问于2012-03-01得票数 2
回答已采纳
1回答
我有两个变量，其中包含目录路径。我想看看它们在tcl中是否相等。问题是它们可能是链接，我想比较原始路径。
if { ![string equal -nocase $path1 $path2]} { #do something}
我尝试过使用[file readlink $path1]来获取原始路径，但它不适用于目录。在tcl中有像readlink这样的目录命令吗？
浏览 2提问于2015-01-31得票数 0
我还没有见过像下面这样的Tcl if {expression}。我需要帮助理解$TVAR(h_flows，comm，current_stage) 谢谢！！ if {$TVAR(h_flows,comm,current_stage) == "300_start"} {
puts "...
浏览 17提问于2021-04-29得票数 0
1回答
Xpath查询的输出
、、、
首先，我想问一下Xpath查询的输出格式是什么。
对于我来说，当我执行输出的视图源代码时，我得到的是
实际输出-
示例xml -
我的php代码-
<?php
$variable=$_POST['module'];
$xmldoc = new DOMDocument();
$xmldoc->load('info.xml');
$xpathvar = new Domxpath($xmldoc);
$queryResult = $xpathvar->query("testcase[
浏览 0提问于2014-03-14得票数 0
在我使用以下代码进行字符串比较时，我得到的是-1而不是0
set s1 "sekhar"
set s2 "sekhar"
puts [string compare s1 s2]
浏览 4提问于2015-11-26得票数 0
1回答
我使用tcl shellicon命令来提取图标，就像它在下面的wiki页面上提到的那样，里面有一些国际字符问题，然后我写了一些代码来测试，但它不起作用，有人能帮我纠正它吗？
/*
* testdll.c
* gcc compile: gcc testdll.c -ltclstub86 -ltkstub86 -IC:\Users\L\tcc\include -IC:\Users\L\tcl\include -LC:\Users\L\tcl\lib -LC:\Users\L\tcc\lib -DUSE_TCL_STUBS -DUSE_TK_STUBS -shared -o testdll.dl
浏览 1提问于2016-04-13得票数 0
我在TCL中有以下代码：
"\\*05.|__|##|.T|__|__|"
试图匹配以下输出：
*05 |__|##| T|__|__|
而且很吻合。
但如果产出是：
*05 |__|##|__|__|__|
它也匹配，问题是什么，以及如何解决它？
浏览 3提问于2013-08-08得票数 1
回答已采纳
我想了解一下用于字符串比较的TCL命令expr：
我尝试了以下几种方法：
expr {t eq t}
=> 1
expr {tru eq tr}
=> 0
expr {tru eq truee}
=> invalid bareword "truee" ...
expr {a eq a}
=> invalid bareword "a" ...
单词t，tr，tru背后的魔力是什么？Tcl会对这些字符串进行特殊处理吗？我了解到，如果我将expr与eq一起使用，我必须引用字符串，但我有一些遗留程序使用这种形式的比较。我想要理解它。谢谢。
浏览 5提问于2016-08-24得票数 4
我想知道一种检查tcl中三个或更多变量的变量值是否相同的好方法。 Suppose $a=abc
$b=abc
$c=abc
if ($a,$b,$c value is same)
puts"write something"
else
puts "not same"
浏览 68提问于2021-03-24得票数 0
回答已采纳
1回答
set botlisten(port) "3333"
set botlisten(password) "123456"
set botlisten(channel) "#chan"
listen $botlisten(port) script botlisten
proc botlisten {idx} {
control $idx botlisten2
}
proc botlisten2 {idx args} {
global botlisten newTorrentChannel
set args [join $args]
set b
浏览 3提问于2011-04-15得票数 1
回答已采纳
我使用c/c++中的tcl库定义了一个定制的tcl类型。我基本上让Tcl_Obj.internalRep.otherValuePtr指向了我自己的数据结构。这个问题发生在调用[string length myVar]或其他类似的字符串函数时，这些函数执行所谓的闪烁行为，它用自己的字符串结构取代了我的internalRep。这样，在字符串系列tcl函数之后，myVar就不能转换回！因为它是一个复杂的数据结构，不能从Tcl_Obj.bytes表示转换回来，而且类型不再是我的自定义类型。我怎么才能避免。
浏览 1提问于2017-01-26得票数 1
回答已采纳
我正在尝试在我的Python中添加一个项目到一个ttk.Treeview实例中，这个脚本构建了一个基本的UI。插入代码如下所示：
tree.insert(my_id,
'end',
todo_id,
text="Line " + str(line_num),
values=(str(todo_text), owner), # I have 2 cols, 'text' and 'owner'
tags=[
浏览 7提问于2012-07-19得票数 4
回答已采纳
使人能够从Tcl运行Python代码。那另一个方向呢？有人能给出一个Python的例子吗？
更新：我的意思是，能够访问Tcl对象、调用Tcl函数等等，而不是简单地运行一些Tcl代码。
浏览 9提问于2010-03-25得票数 5
2回答
所以，我尝试让python打印一个包含tcl变量的字符串，以及该变量的结果。我正在使用nuke，以防这对我的代码很重要。
[set THIS image]
Ln = "/Test/still/testing/$THIS\_clean_v001"
print(Ln) # this prints exactly the above
G = nuke.tcl('[puts "$THIS"] ')
print(G)会返回单词image还是no？
然后我就可以把它放进去了。问题是我输入tcl的文本字段在程序中很好地解决了它，但是当我发送它进行处理时，
浏览 3提问于2013-04-24得票数 3
回答已采纳
我是Tcl的初学者，我正在努力了解如何使用它。我有这样的代码，它从get_my_list proc获取一个tcl列表，然后迭代它来发送一些信息，在本例中，是与A、B和C属性有关的信息，这些信息是通过get_attr_info proc获得的。当我在一个非常简单的示例中运行它时，基本上只有这段代码，所有操作都很完美，但是当我在一个大型tcl项目中添加这个lib时，它最终会崩溃。我怀疑这是由于对tcl对象引用计数的错误使用，我的意思是，它们的生命周期。在下面的例子中，我可能做错了什么？我用的是TCL8.6。
Tcl_Obj* Get_Info(Tcl_Interp *interp, const c
浏览 4提问于2021-04-01得票数 2
回答已采纳
我指的是这个优秀的教程，它讨论如何在单独的进程中运行服务。
在远程服务中，有一种方法可以删除从活动中传递的侦听器。
在远程服务中
@Override
public void removeListener(TweetCollectorListener listener)
throws RemoteException {
synchronized (listeners) {
listeners.remove(listener);
}
}
在活动中
private TweetCollectorListener.Stub collectorListener
浏览 3提问于2013-02-20得票数 1
回答已采纳
所以我收到了错误，
_tkinter.TclError: can not find channel named "stdout"
通过运行以下代码：
from tkinter import Tcl
tcl = Tcl()
tcl.eval('''
puts hello
''')
。我想知道是不是因为我在windows上，以及控制台和gui应用程序之间的区别？我在一本书中发现了一种有趣的方法，他们说可以通过同时拥有一个控制台和一个窗口，但这让我陷入了另一个错误：
_tkinter.TclError: invalid comman
浏览 8提问于2022-11-25得票数 0
回答已采纳
3回答
我对以下代码的tcl中的if语句有一个疑问：
if {(($number == 1)&&($name == "hello")) || (($number == 0)&&($name == "yes"))} {
#do something here
}
上面的代码可以工作，但如果我这样写它：
if {{$number == 1 && $name == "hello"} || {$number == 0&&$name == "yes"}} {
#do so
浏览 0提问于2012-06-29得票数 15
回答已采纳
1回答
我在网上搜索过，似乎找不到办法删除我放置在按钮上的图像。我想知道是否有办法删除图像，但保留按钮或任何其他简单的快速修复。这是我的一些代码供参考。
def breakcup():
if firstroom.cupnotbroken:
messagebutton.config(text="You broke the cup, and the key was inside the cup.")
cup.config(image=photo4)
firstroom.cupnotbroken=False
else:
浏览 2提问于2015-05-22得票数 2
回答已采纳
我试图在critcl的帮助下实现一个简单的加法，我的目标是检索一个包含3个值的列表。令我感到惊讶的是，计算时间并没有大幅缩短。
减少每1.000.000 calculation.≈+100%损失的≈+25%每1.000计算的时间
puts [time {for {set i 0} {$i < 1000} {incr i} {AddCritcl {12 0 0} {12 0 13}}} 1]
puts [time {for {set i 0} {$i < 1000} {incr i} {AddTcl {12 0 0} {12 0 13}}} 1]
puts [time {for {s
浏览 2提问于2021-10-17得票数 1
我正在定义一个新的TCL命令，它的实现是C++。该命令用于查询数据流，语法如下所示：
mycmd <arg1> <arg2> ...
其思想是，这个命令接受一个参数列表，并返回一个列表，其中包含每个参数的对应数据。
我的同事评论说，最好只使用一个参数，当需要多个值时，只需多次调用命令即可。
还有一些其他的讨论，但我们不能达成一致的一点是，表演。
我认为我的版本，参数列表应该更快，因为当我们想要多个参数时，通过TCL解释器只需要一次成本。
他的评论对我来说是新的-
函数实现被缓存
访问TCL函数比访问TCL数据更快。
这推理听起来不错吗？
浏览 1提问于2013-03-20得票数 0
我有一个可以执行TCL脚本的C应用程序，还有许多用C实现并在Tcl_CreateObjCommand中注册的定制TCL命令。在实现命令时，我希望找到调用我的命令的TCL脚本的文件名。也就是说，类似于"info script“的东西，但是从C调用(我不需要一个完整的路径，只要文件名就足够了)。我命令中的唯一参数是
Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]
clientData为空。
那么，是否有一个C函数可以只传递Tcl_Interp*并获得TCL脚本的文件名？或者如果它不存在，那么从TCL命令的实现中调用Tcl_Eval*函
浏览 0提问于2014-01-13得票数 2
回答已采纳
我从一个TCL脚本中启动多个tclsh来模拟多线程。然而，所有的电话都失败了。
我将问题简化为TCL启动tclsh的测试。
proc launch_tcl {} {
set cmd "tclsh script.tcl"
set pid [ eval $cmd & ]
}
这会产生：invalid command name "tclsh"
我可以在TCL提示符上给出以下行，它们可以正常工作。
set cmd "tclsh script.tcl"
set pid [ eval $cmd & ]
我已经尝
浏览 0提问于2017-05-18得票数 0
回答已采纳
我对这两者之间的差别感到惊讶：
strapply(state.name, "^(?:Al|Ma)(.).*(.)$", simplify=rbind, FUN=c, perl=T)
[,1] [,2] [,3]
[1,] "a" "a" ""
[2,] "a" "a" ""
[3,] "i" "e" ""
[4,] "r" "d" ""
[5,]
浏览 1提问于2014-03-01得票数 1
回答已采纳
我正在处理TCL脚本，它将打开另一个tcl文件，我希望从第二个打开的文件中获得变量的值，并在第一个文件中使用它。
两个文件abc.tcl和xyz.tcl abc.tcl打开文件xyz.tcl并读取变量的值并在abc.tcl中使用。
浏览 1提问于2018-05-25得票数 0
回答已采纳
在tcl中，我们可以将内联命令返回的字符设置为tcl变量，如下所示。
Tcl> set x [pwd]
/home/user_leo/tmp
Tcl> puts $x
/home/user_leo/tmp
我们通过Tcl /C++ API实现了用户定义的命令"get_failed“，该命令将输出结果到屏幕，如下所示：
Tcl> get_failed
a1 a3 a5 a7
我们想要将证明结果存储到一个tcl变量中。但我们试过了，但失败了。
Tcl> set y [get_failed]
a1 a3 a5 a7
Tcl> puts $y
变量$y中没有存储任
浏览 7提问于2020-11-22得票数 0
回答已采纳
我正在更新一段基于Tk的第三方软件，以便与Tcl/Tk 8.6一起使用，并且我遇到了这样一种形式的声明：
interp->result = Tk_PathName(tkwin);
，其中interp是Tcl_Interp *，tkwin是Tk_Window。在TCL8.6中不再允许(默认情况下)直接访问Tcl_Interp的成员，我希望按照以下方式将其转换为对Tcl_SetResult()的调用：
Tcl_SetResult(interp, Tk_PathName(tkwin), /* what goes here? */);
但是，我在查找Tk_PathName()返回的字符串的生存期
浏览 1提问于2020-01-24得票数 1
回答已采纳
我正在努力解决一个问题，我会感谢你的帮助。
假设我有一个tcl/tk应用程序和解释器'x.y.123.3454'，我想从一个C应用程序发送一些tcl过程，这些过程在'x.y.123.3454‘中定义。
例如，我希望从C应用程序向'x.y.123.3454‘发送puts "Hello World"。该怎么做呢？
如果您想知道为什么我不直接在tcl解释器中运行这些过程和命令，请告诉我。
浏览 14提问于2017-01-23得票数 0
回答已采纳
1回答
我的印象是，Tcl在使用lindex时将其数据视为列表，而不是数组。
因此，搜索第n个元素的顺序是O(n)，因为“一切都是字符串”。我从经验上发现，在几个我无法分享的测试案例中，事实并非如此。lindex更接近O( log(n) )，甚至更低的复杂度！
这是有意的还是“纯粹的运气”？
浏览 2提问于2015-10-26得票数 1
回答已采纳
1回答
我必须运行一个脚本，在这个脚本中我必须给出一些密码作为参数。密码包含特殊字符。
假设我正在使用test.tcl system$123调用一个脚本。
尝试使用以下命令访问arg
set name [lindex $argv 0]
这些特殊字符将被忽略。
请在这方面帮帮我。
谢谢，拉米亚。
浏览 3提问于2012-09-06得票数 0
我有一个Tcl_Interp的结构，我不知道它是什么。我尝试打印字符串值interp.result，但没有返回任何内容。我正在使用这个函数：
void debug_state(char *state);
如下所示：
debug_state(Tcl_GetStringResult(g_game.tcl_interp));
但它不会返回任何内容。除了char *Tcl_GetStringResult(interp)之外，还有其他方法可以查看tcl_interp的字符串值吗
浏览 0提问于2013-04-03得票数 0
回答已采纳
2回答
背景。我正在使用，通常情况下，人们使用/指定不同的层次结构。但是，实际使用/作为实例名称的一部分并不违法。
例如，X1/X2/X3/X4可能在另一个名为X1/X2/X3的实例中引用实例X4。或者，它可能在名为X3/X4的实例中引用名为X2的实例，在名为X1的实例中引用该实例。明白了?
没有任何“常规”字符不能用作实例名称的一部分，所以您可以使用不可打印的名称，或者.也许其中一个超出了标准0..127个字符。
我想我应该尝试(十进制) 166，因为对我来说，它显示为管道：¦。
所以..。我有一些C++代码，它使用¦作为分层分隔符来构造路径名，所以上面的路径看起来像X1¦X2/X3¦X4。
现在G
浏览 1提问于2010-05-05得票数 1
回答已采纳
1回答
如何将Tcl数组发送到C++？我编写了以下代码：
Tcl：
set ns [new Simulator]
set n [$ns node]
$n set X_ 100
$n set Y_ 30
$n set Z_ 0
set x [$n set X_]
set y [$n set Y_]
set z [$n set Z_]
#after 2000
set b {12 2 3 4 5}
set aa [new "Application/Trust/ITLeach"]
$aa set bufer_ 1
$aa set allnode_ $n
$aa set X_ $x
浏览 0提问于2013-11-03得票数 1
如何使用Tkinter将多个参数传递给tcl proc。我想从python proc validate_op向tcl proc tableParser传递3个参数，它有3个参数...
from Tkinter import Tcl
import os
tcl = Tcl()
def validate_op(fetch, header, value):
tcl.eval('source tcl_proc.tcl')
tcl.eval('set op [tableParser $fetch $header $value]') <<&
浏览 0提问于2016-06-17得票数 2
附件是我的代码。然而，当我执行它时，这个错误消息出来了:第11行:语法错误靠近意外的标记`}‘
由于我是tcl的新手，我不知道哪里出了问题。请帮帮我！非常感谢
set filename "a.qip"
set temp [create_temp_file a.qip]
set out [open $temp w]
set in [open $filename r]
set entityname "edward"
while {[gets $in line] != -1} {
if {[string match "*SDC_FI
浏览 1提问于2013-10-16得票数 0
1回答
在NS2中，是否有任何方法将C++变量嵌入到TCL脚本中？例如，在TCL中，像这样设置路由协议，set opt(rt) XXX XXX可以是C++程序中定义的变量，例如
if(CONDITION==1)
XXX = "FLOODING";
if(CONDITION==2)
XXX = "AODV";
...
浏览 7提问于2012-01-11得票数 0
我对TCL的变量作用域规则感到困惑，下面是一个实验：
if {2 > 1} {
set x 100
}
proc p1 {} {
set y 200
}
puts $x
p1
puts $y
运行该脚本会得到以下结果：
100
can't read "y": no such variable
while executing
"puts $y"
这让我感到困惑:关于$y的错误是有意义的，因为y是在proc内部定义的，所以它不能在proc之外访问。问题是x，为什么它是可访问的？它是在"if“命令的嵌套脚本中定义的。
从我
浏览 2提问于2016-04-28得票数 1
我的系统出了点问题，我写了一个脚本外壳，
#!/usr/bin/expect
spawn ssh -p$port $username@$ip
expect {
"*yes/no" { send "yes\r";exp_continue}
"*password:" { send "pass"}
}
#expect '$*' {send "sudo systemctl stop wind_dete\r"}
expect '$*' {send 'sudo pkill mysql&
浏览 8提问于2022-06-23得票数 0
在c中使用Tcl_GetVar2的最佳方法是什么？
axes = (Axes*) malloc(sizeof(Axes));
axes->Xorientation = Tcl_GetVar2(interp, "axes", "XOrientation", TCL_GLOBAL_ONLY);
以轴为结构
typedef struct {
double XvaleurMin;
double XvaleurMax;
double XRatio;
char *Xorientation;
double Yvale
浏览 1提问于2017-12-12得票数 1
回答已采纳
我尝试启动部署在独立服务器中的所有已退出的docker容器，因此基本上我应该执行下面的基本命令 [ $(docker ps -a | grep Exited | wc -l) -ne 0 ] && docker start $(docker ps -a | grep Exited | cut -d' ' -f1) 它像在纯linux shell中一样工作得很好，但是当我尝试使用expect“发送”"essential“命令时，出现了错误(如下所示)。(本端ip为241，远端为209) [root@localhost start_shell_dir]#
浏览 273提问于2021-10-14得票数 0
我需要将shell中的以下代码片段更改为tcl。请帮帮忙。
if (` expr $_f : proj_lp_ ` == 8) then
我需要与if条件中的条件等价的tcl。
谢谢!
浏览 3提问于2013-02-06得票数 0
我有下面几行(file.list)的文件
insert_buffer [get_ports { port }] BUFF1 -new_net net -new_cell cell
我使用下面的脚本(read.tcl)读取该文件
#! /usr/local/bin/tclsh
foreach arg $argv {
set file [open $arg r]
set data [ read $file ]
foreach line [ split $data "\n" ] {
puts $line
set name [lindex $line [expr [
浏览 18提问于2019-10-10得票数 0
1)
% expr "1==1"
1
2)
% expr "i==i"
invalid bareword "i"
in expression "i==i";
should be "$i" or "{i}" or "i(...)" or ...
为什么要在步骤2中得到这个错误？
1) % if {"i" == "i"} {
puts "hai"
}
hai
2) % if {i == "i"} {
浏览 5提问于2013-09-16得票数 1
1回答
我想在嵌入式系统上测试C语言的功能。拓扑结构是：
PC
测试脚本在PC机上运行，并在嵌入式系统上调用C语言函数。我想使用TCL脚本来测试它。我看到了一个解决方案:将TCL解释器嵌入嵌入式系统运行时。
测试步骤：
PC机将TCL脚本发送到嵌入式系统。
嵌入到嵌入式系统中的TCL解释器解析TCL脚本并运行，调用C语言函数。
Q1:这是一个可行的解决方案吗？
Q2:还有其他可能的解决方案(必须在PC上运行TCL脚本)？
Q3:是否需要在嵌入式系统运行时嵌入SWIG？
谢谢。
浏览 4提问于2015-04-10得票数 0
2回答
导致TCL错误的原因是什么：
Tcl错误:无法转换日期时间字符串"Wed 5月14日05:20:15 RET 2014“
执行clock scan $Date时
% echo $tcl_version
8.4
% info patchlevel
8.4.19
几乎没有人建议升级到TCL8.5，但想知道这个问题是否可以在8.4中解决。
浏览 5提问于2014-05-15得票数 2
我需要格式化一个可以解释为TCL字典的字符串。基本上，字符串是在C++中形成的，然后作为字符串变量值传递到TCL解释器中，并且TCL解释器应该能够将该字符串值视为字典。这是可能的吗?如果是的话，应该如何格式化该字符串？
浏览 4提问于2020-03-25得票数 2
回答已采纳
array get返回什么，引用还是值？我有一个将列表作为值的数组，并且这些列表必须频繁修改。实现这一目标的有效方法是什么？
浏览 0提问于2013-06-12得票数 4
回答已采纳
1回答
当我使用工具时，我可以得到HTTP POST body响应，
HTTP/1.0 200 Ok
Server: xxxx TinyServer
MIME-version: 1.0
Cache-Control: no-store, no-cache;
Pragma: no-cache;
Set-Cookie: session=0000743A; path=/;
Content-Type: text/xml
Expires: -1
Content-Length: 3509
<column><column_oid>1.3.6.1.4.1.664.5.63.900.1.20.1
浏览 1提问于2013-12-24得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
