CODEWITHSUNDEEP
shellgreptcl
stack_A
stack_A

Reputation: 763

execute shell command with tcl

I want to execute the folowing shell command by tcl : 

cat $file_path/file | grep test > $file_path/des_file

I use exec but I got the following error:

cat :|grep No such file or directory

how to make this command works fine with tcl

Upvotes: 2

Views: 18482

Answers (1)

Donal Fellows
Donal Fellows

Reputation: 137567

I'm betting that you're actually writing this:

cat $file_path/file |grep test > $file_path/des_file

With no space between | and grep. Tcl's exec cares about this since it assembles the pipeline without going to an external shell, and it is rather more finicky about these things.

One of the alternatives, only suitable where you don't have spaces in pathnames, is to do:

# Or however you want to make the script, such as popping up a dialog box in a GUI
set shell_script "cat $file_path/file |grep test > $file_path/des_file"
exec sh -c $shell_script

Though you can do it simply without that cat too:

exec grep test < $file_path/file > $file_path/des_file

That said, since it is grep you can do it entirely in Tcl:

# Read in all the lines
set f [open $file_path/file]
set lines [split [read $f] \n]
close $f

# Filter the lines
set matches [lsearch -all -inline -glob $lines *test*]

# Write out the filtered lines
set f [open $file_path/des_file w]
puts $f [join $matches \n]
close $f

The -regexp option to lsearch is a closer match to what grep does than -glob, but it's slower and overkill for this case.

Upvotes: 4

Related Questions