diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/popen.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/examples/popen.tcl b/examples/popen.tcl new file mode 100644 index 0000000..8a6b6e3 --- /dev/null +++ b/examples/popen.tcl @@ -0,0 +1,19 @@ +# Internally, open "|..." calls out to popen from tclcompat.tcl +# +# This code is compatible with Tcl + +# Write to a pipe +set f [open |[list cat | sed -e "s/line/This is line/" >temp.out] w] +foreach n {1 2 3 4 5} { + puts $f "line $n" +} +close $f +puts "Created temp.out" + +# Read from a pipe +set f [open "|cat temp.out"] +while {[gets $f buf] >= 0} { + puts $buf +} +close $f +file delete temp.out |