tcl

问题 #!/usr/bin/expect spawn passwd [lindex $argv 0] set password [lindex $argv 1] expect -nocase "pass*" { send "$password\r" } expect -nocase "password" { send "$password\r" } expect eof How can I prevent expect to expand the glob * in pass* ? This is just an example. In my actual code, I want to keep the glob, but I don't want to at -ex , which stands for exact match, or -re option for regex. 回答1: If you want a glob-style match, use the -gl option before it: expect { -gl -nocase "pass*" { # Do

问题 #!/usr/bin/expect spawn passwd [lindex $argv 0] set password [lindex $argv 1] expect -nocase "pass*" { send "$password\r" } expect -nocase "password" { send "$password\r" } expect eof How can I prevent expect to expand the glob * in pass* ? This is just an example. In my actual code, I want to keep the glob, but I don't want to at -ex , which stands for exact match, or -re option for regex. 回答1: If you want a glob-style match, use the -gl option before it: expect { -gl -nocase "pass*" { # Do

问题 So I am trying to move a bunch of files with similar extensions from /home/ to /root/ Code I tried is file copy /home/*.abc.xyz /root/ Also tried set infile [glob -nocomplain /home/*.abc.xyz ] if { [llength $infile] > 0 } { file copy $infile /root/ } No success. 回答1: Your two attempts fail for different reasons: There is no wildcard expansion in arguments to file copy , or any Tcl command, for that matter: file copy /home/*.abc.xyz /root/ . This will look for a single source with a literal *

问题 I'm having a bit of trouble trying to install Tkinter on a Linux system without having root privileges. According to the second answer to this question: Install tkinter for Python there is a way, and it involves downloading the source of Tkinter and TCL and then running their install routines in custon directories created one level below the home directory. I did that and everything except for the last step where it says run setup.py build and setup.py install. I can't find these files

问题 In my C++ code, if I create one tcl interp per thread, and use it to Tcl_EvalEx a script, and get result by Tcl_GetStringResult, is this thread safe? There's no shared data between these threads except const data. After some searching on google I found this in the tcl threading model doc: http://www.tcl.tk/doc/howto/thread_model.html Tcl lets you have one or more Tcl interpreters (e.g., created with Tcl_CreateInterp()) in each operating system thread. However, each interpreter is tightly

问题 Thanks. But the account and password are needed. So I must send them and then send ovs-vsctl command. the scripts are something like this: spawn telnet@ip expect -re "*login*" { send "root" } expect -re "password*" { send "****" } send "ovs-vsctl *******" I want to store the output of this command send "ovs-vsctl ****" , but many times I got some output of the command "send "password"", how can I get the output of send "ovs-vsctl****" . The output of the command send "ovs-vsctl *** are two

问题 In TCL, I'm writing a procedure that returns the depth of a clock. But since I have several clocks I want to name the var: depth_$clk proc find_depth {} { foreach clk $clocks { … set depth_$clk $max_depth echo $depth_$clk } } But I get: Error: can't read "depth_": no such variable Use error_info for more info. (CMD-013) 回答1: Your problem is this line: echo $depth_$clk The issue is that the syntax for $ only parses a limited set of characters afterwards for being part of the variable name; the

问题 I have a bash script that calls an expect script like so $SCRIPTS_DIRECTORY/my_expect_script.sh $my_bash_array I can pass a variable over, it seems, and use it. For this example the variable seems to be in [lindex $argv 0] . From bash, it will be a bunch of values, e.g. 1 2 3 4 5 . I am trying to figure out how to use expect to grab this variable, save it to an array then loop through the array to spit out multiple commands one at a time. So my output should be something like send command 1

问题 I am using macOS 10.12.1 Sierra. I am using Python 2.7.12 installed with brew install python but the IDLE gives the warning WARNING: The version of Tcl/Tk (8.5.9) in use may be unstable. Visit http://www.python.org/download/mac/tcltk/ for current information. and sure enough, it crashed frequently. 8.5.9 is the macOS preinstalled version. I can download the stable 8.5.18 from the ActiveState website (as recommend by python, which works with the python installations from python.org (as they