如何在 tcl 中执行 getpwnam/getpwuid 等

Question

tcl 是否有执行 NSS 查找的标准方法（getpwnam、setpwent，...）

Answer 1

Tcl 不会将它们公开为 API（它也没有真正在内部使用它们），而是使用 TclX 扩展包确实支持正是你想要的我相信。例如：

package require TclX

set uid [id convert user $tcl_platform(user)]
puts "Your userid is $uid and you are a member of these groups: [id groups]"

如果您正在使用 ActiveTcl，那么您肯定已经获得了可用的 TclX 软件包（已经安装或可以从 teapot 存储库中获取）。