examples/popen.tcl

   1 # Internally, open "|..." calls out to popen from tclcompat.tcl
   2 #
   3 # This code is compatible with Tcl
   4
   5 # Write to a pipe
   6 set f [open |[list cat | sed -e "s/line/This is line/" >temp.out] w]
   7 puts "Creating temp.out with pids: [pid $f]"
   8 foreach n {1 2 3 4 5} {
   9         puts $f "line $n"
  10 }
  11 close $f
  12
  13 # Read from a pipe
  14 set f [open "|cat temp.out"]
  15 puts "Reading temp.out with pids: [pid $f]"
  16 while {[gets $f buf] >= 0} {
  17         puts $buf
  18 }
  19 close $f
  20 file delete temp.out