在 Haskell 中运行 sudo 命令

Question

我的笔记本电脑上安装了 ghc 6.12.3 和 Ubuntu 11.04。

我想要一个函数，它接受一些 shell 命令并在 Haskell 中以超级用户身份执行它们（如 sudo update-manager、sudo iwlist ....）。我知道 System.Process 模块有一些函数，如 createProcess、runInteractiveCommand。但是有一个原始命令或一个 shell 命令，而不是像“sudo update-manager”这样的复合命令。我对这些函数执行“sudo ...”的所有实验都失败了。我用来运行我的 haskell 函数的终端没有响应。

我还查看了 HSH 包。但在我看来，那里导出的函数也不适用于 sudo 命令。

我的猜测是执行“sudo update-manager”之类的命令需要两个进程。一个用于“sudo”，另一个用于“update-manager”。所以我需要调用像“createProcess”这样的函数两次并以某种方式连接它们，以便“update-manager”的第二个进程从“sudo”的第一个进程获得超级用户权限。

提前感谢您的帮助！

Answer 1

从System.Process 尝试readProcess

readProcess :: FilePath -- command to run 
-> [String]             -- any arguments 
-> String               -- standard input 
-> IO String            -- stdout 

readProcess fork 一个外部进程，读取它的标准输出 严格来说，阻塞直到进程终止，并返回 输出字符串。

像这样运行它：

readProcess "/usr/bin/sudo" ("-S":someProgram) (passwort++"\n")

这将使用选项-S 和程序执行sudo。从标准输入读取密码需要-S。密码必须以换行符结尾，因此程序会添加一个。

Answer 2

回答最后一段。 sudo 是一个常规程序，没有任何魔法。它只是碰巧运行其他程序。你的 Haskell 程序也是如此。你的程序运行 sudo 和 sudo 运行 update-manager 所以不，你不应该创建两个进程。

Answer 3

您尝试过 System.Process.system 吗？

import System.Process

main = system "sudo update-manager"

这对我有用 (GHC 7.0.3)。此外，对于一般的 Haskell 脚本（包括 sudo），您可以查看 Don Stewart 的演示文稿 "Practical Haskell: scripting with types"。