tcl

0热度

1回答

我想要读取tcl中的列表，然后输出每个索引处的元素以及索引。例：MYLIST = 1 2 {34 45 {567 678}} 我的输出应当是元件在0是在1 1个元件是2 元件在2 0是34 元件在2 1在2 2 0 45 元件以2 2 1 567 件678

0热度

1回答

如何vwait 2个变量

我的目标是做这样的（简化）代码的东西： package require MyProcessor 0.1 package require Tk proc Open_file {} { MyProcessor::Process } # Upper frame frame .top # Input file name set inp_file_name "Input file

0热度

1回答

字符串连接，包括TCL中的变量

我试图在TCL中完成一些非常简单的事情。即字符串连接，其中一些（不是全部）字符串被分配给变量。例如 set string1 fragilistic set string2 docious puts [concat supercali $string1 expiali $string 2] 此结果在supercali fragilistic expiali docious。我真的不想在之间

-1热度

1回答

父进程与子进程之间的通信 - Perl

我在需要调用另一个程序“b.pl”的终端上运行perl程序“a.pl”，然后将环境变为tcl shell。程序“b.pl”设置了我必须在主程序“a.pl”中使用的环境变量，之后我需要在由“b.pl”创建的tcl环境中运行新命令。请看下面的例子中程序：a.pl #!/usr/intel/bin/perl -w use strict; use warnings; #t

1热度

1回答

如何设置默认值的参数proc是Tcl的

一个新的字典，我想编写一个PROC它可以接受字典作为optional argument或者如果没有被赋予新创建的。我的尝试，但是，失败的说法符太多的领域 “词典[字典创建]” proc getOpts { {dictionary [dict create]} } { upvar $dictionary dct for { set i 0 } { $i < $::argc }

1热度

2回答

在TCL中将大十六进制数字拆分成32位数字列表

如何使用tcl将大十六进制数字（如0x111111112222222233333333）拆分为32位数字列表（0x11111111 0x22222222 0x33333333）？

1热度

4回答

TCL字符串匹配不起作用

我正在尝试在大文本文件中搜索字符串并相应地返回退出代码。对于上下文来说，文本文件是ModelSim日志文件，我需要将1（坏）或0（好）的退出码传递给调用以下TCL脚本（片段）的Windows批处理脚本： set sim_pass {# ** Failure: NONE. End of Test: PASS} set sim_fail {# ** Failure: ERRORS. End

0热度

1回答

事件产生TCL/TK 8.2

我想作同样的事情，这个命令如下： event generate . <Motion> -warp 1 -x 0 -y 0 但对于Tk的8.2，-warp 任何解决方法（从Tcl的Tk的8.3开始）想法？

0热度

1回答

错误“浮点异常（核心转储）”的原因是什么

我试图保存proc Inverse2的输出$result，它在每一秒钟后被调度（它在另一个过程中被调用，该过程被重新调度为1秒，所以Inverse2程序）我想输出是{XY现在}并指定变量它最新的两个实例 x1-> x location at current time (for example at 8.0) y1-> y location at current time x2-> x loc

0热度

2回答

这是什么意思 - 不能在tcl-上使用空字符串作为“*”的操作数？如何解决

我有一个TCL脚本，如下所示。代码工作得很好;然而，在我测试过几个输入之前，我有一个输入文件Defect.csv的问题。我尝试删除空格，行和使用unix2dos转换为unix格式但是，我得到这个错误 - 不能使用空字符串作为“*”的操作数 - 我可以看到格式仍然搞砸了。我相信它不承认由于空间的“Y”。我尝试了以下尝试删除空格/制表符 cat OverlapVGSnets.csv | sed'