Posted to tcl by mr_calvin at Mon Jan 21 14:59:15 GMT 2019view pretty

% lmap fd [glob /proc/[pid]/fd/*] {if {[file exists $fd] && [string match pipe:* [file readlink $fd]]} { file tail $fd } else { continue }}
% set pre [lmap fd [glob /proc/[pid]/fd/*] {if {[file exists $fd] && [string match pipe:* [file readlink $fd]]} { file tail $fd } else { continue }}]
% open "|echo"
file3
% set post [lmap fd [glob /proc/[pid]/fd/*] {if {[file exists $fd] && [string match pipe:* [file readlink $fd]]} { file tail $fd } else { continue }}]
3
% close $fh
% set post2 [lmap fd [glob /proc/[pid]/fd/*] {if {[file exists $fd] && [string match pipe:* [file readlink $fd]]} { file tail $fd } else { continue }}]