如何将TCL管道通道传递给gpg --passphrase-fd？

Question

是否可以将tcl管道通道传递给gpg --passphrase-fd

;# $word is a pipe channel opened by pipe (tcl 8.5)
package require pipe;
;#
set fd [open "|gpg -d -q --no-options --batch --passphrase-fd $word $file" "r"]

Answer 1

来自man gpg

--passphrase-fd n

从文件描述符n中读取密码。如果n使用0，则将从标准输入中读取密码。

因此，我将--passphrase-fd的值设置为0，并通过标准输入通道将管道的内容传递给gpg。

set fd [open "|echo [gets $word] | gpg -d -q --no-options --batch --passphrase-fd 0 $file" "r"]