我正在学习Tcl。在Perl中,我可以这样做: $ perl -e 'for ($i = 0; $i < 5; $i++) { printf("name%03d\n", $i) }' name000 name001 name002 name003 name004 我能用...
我正在尝试在Tcl中检查文件是否存在,但似乎无法获得正确的结果。即使我知道它存在。 while {true} { if { [file exists $file_name] == 1} { exp_send "copy file.txt...
假设这是脚本。 #!/usr/bin/expect set a "__test__" 我想在这个脚本中创建一个循环,以便它可以打印值。 $a 根据循环的次数,在其前面加上一个数字。 因此,如果我想要循环3次... 最终结果会变成: 1:__test__ 2:__test_...
如何在不在屏幕上显示输出的情况下执行set命令?我想读取一个文件,但不想在屏幕上显示内容。set a [open "giri.txt" r] set b [read $ifile]
我一直在使用TCL/TK,最近开始将其与自动化应用程序一起使用,我渴望知识。 为了延续“隐藏功能”问题的长篇连续,我想知道TCL/TK的任何隐藏或方便功能,或者实现一些大型操作的简单方法。
我正在创建一个Tcl脚本,以便我能够自动安装软件。但是我遇到的问题是软件需要一些环境变量在前面设置,并且我想知道是否可以在tcl脚本中设置环境变量。 我打算尝试exec /bin/sh -c "source /path/to/.bash_profile,但那会创建一个shell脚本并将变量源...
在Tcl中,初始化一个空数组的正确方法是什么? 我有以下代码(简化): proc parseFile {filename results_array} { upvar $results_array results set results(key) $value } set...
我在一台服务上使用Linux系统工作,但是我没有root权限。我将Python-3.2.3安装在本地目录“/home/sam/install_sam”中。当我尝试导入tkinter模块时,出现了以下错误: ImportError: No module named _tkinter, plea...