Executing a set of commands from a bash script through a tcl script

Question

I am trying to execute a set of commands specified in a bash script through my tcl script. I am pretty new to tcl so I could not find a way to do so, I consulted quite a few stack overflow links as well so I now know how to execute a single command from the tcl script.

Right now I am using this to execute a single command -

exec /usr/bin/sshpass ssh -o StrictHostKeyChecking=no $command

But how do I make sure that the script reads one command at a time from the bash script and execute the above command for each of the command?

That's what I am doing, I am sending the whole file. I just want the commands to be executed one by one so that I may have some kind of interactive output telling me about the status of each command. — SaCh
– SaCh, Commented Apr 14, 2016 at 11:08

Peter Lewerin · Accepted Answer · 2016-04-12 07:22:22Z

3

sharad@ss:~$ cat commands.txt 
date
uname -m
sharad@ss:~$ 

sharad@ss:~$ cat my.tcl
set fileHandle [open commands.txt]
set commands [read $fileHandle]
close $fileHandle

foreach command [split $commands "\n"] {
    set command [string trim $command]
    if {$command == ""} {
        continue
    }
    puts "command=$command,result=[exec ssh sharad@localhost bash -c  $command]"
}
sharad@ss:~$ 


sharad@ss:~$ tclsh my.tcl
command=date,result=Tue Apr 12 02:47:28 EDT 2016
command=uname -m,result=Linux
sharad@ss:~$

edited Apr 12, 2016 at 7:22

Peter Lewerin

13.3k1 gold badge29 silver badges28 bronze badges

answered Apr 12, 2016 at 6:47

Sharad

10.8k4 gold badges24 silver badges38 bronze badges

Sign up to request clarification or add additional context in comments.

8 Comments

SaCh Over a year ago

That should be commands.sh, doesn't make a difference but still.

Sharad Over a year ago

Well, it may not have any extension at all and it'll still work :) If the intent is to just have a file to store a list of commands and not really treat it as a shell script, .sh extension may be confusing.

Peter Lewerin Over a year ago

Please try to avoid breaking lines before opening braces. It's very bad style.

Sharad Over a year ago

@PeterLewerin: that's part of coding conventions we follow, in our organization for TCL code. Why do you think it's a bad style? (more chances of error if there's an accidental space after line-break?)

Peter Lewerin Over a year ago

Note that this isn't my personal style choice: it's the universal accepted style (see here, point 6.5). The error you mention is one reason for it, but the main reason is that it makes the code easier to share among programmers. We all have to make compromises with our personal or local styles here on StackOverflow, and this is a compromise you really need to make if you want to be helpful to other Tcl programmers.

|

Collectives™ on Stack Overflow

Executing a set of commands from a bash script through a tcl script

1 Answer 1

8 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

8 Comments

Your Answer

Sign up or log in

Post as a guest

Related