examples/pipe.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

lassign [socket pipe] r w

# Note, once the exec has the fh (via dup), close it
# so that the pipe data is accessible
exec ps aux >@$w &
$w close

$r readable {
	puts [$r gets]
	if {[eof $r]} {
		$r close
		set done 1
	}
}

vwait done