交互式 popen() Lua 调用

Question

我正在尝试创建一个在后台运行 shell 的程序，并向其发送用户命令以执行并返回结果。这是代码：

--note: this runs on windows but I assume replacing "cmd" with "sh" it can run on linux as well
exe,err=io.popen("cmd > stdout.txt 2> stderr.txt");
if not exe then
    print("Could not run command. Error: "..err)
    return
else
    print("Command run successfully... ready!")
end

stdout,err=io.open("stdout.txt","r")
if not stdout then print("Could not open stdout: "..err) return end
stderr,err=io.open("stderr.txt","r")
if not stdout then print("Could not open stderr: "..err) return end

function execute(str)
    exe:write(str)
    return stdout:read("*all") or stderr:read("*all") or "nil"
end

repeat
    print("COMMAND: ")
    userinput=io.read("*line")
    print("You entered: '"..userinput.."'")
    if userinput=="" then print "Empty line! Exiting program..." break end
    print("Result: "..execute(userinput))
until true

print "Closing..."
execute("exit")
print "1"
exe:close()
print "2"
stdout:close()
print "3"
stderr:close()
print "Finished!"

问题：退出程序时，它挂在 exe:close() 调用上。执行循环的行为也很奇怪（有时我必须按几次 Enter 键才能 userinput=io.read("*line") 工作。

我用 google 搜索了一下 file:close() 是否也适用文件句柄是 io.popen() 的结果，但没有找到任何内容，但该调用并没有失败，换句话说，程序的输出如下：

Command run successfully... ready!
COMMAND: 
dir

dir
You entered: 'dirdir'
Result: Microsoft Windows [Version 6.1.7601]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\lua>
C:\lua>
C:\lua>
Closing...
1

Answer 1

Lua 仅依赖于 ANSI C 功能。因此 io.popen 使用 popen(3)功能。引用它的手册：

由于管道根据定义是单向的，因此类型参数只能指定读取或写入，而不能同时指定两者；生成的流相应地是只读或只写的。

您尝试通过将输出重定向到文件并在执行命令后同时打开该文件并从中读取来解决此限制。但是，在这种情况下，您可能会遇到输出缓冲问题 - 我认为这就是您所遇到的问题。

您可以尝试使用 Lua Ex API，而不是尝试解决 io.popen （wiki 页面），它提供了替代的进程生成 API，并允许您执行以下操作：

-- popen2(), from http://lua-users.org/wiki/ExtensionProposal
function popen2(...)
  local in_rd, in_wr = io.pipe()
  local out_rd, out_wr = io.pipe()
  local proc, err = os.spawn{stdin = in_rd, stdout = out_wr, ...}
  in_rd:close(); out_wr:close()
  if not proc then
    in_wr:close(); out_rd:close()
    return proc, err
  end
  return proc, out_rd, in_wr
end
-- usage:
local p, i, o = assert(popen2("wc", "-w"))
o:write("Hello world"); o:close()
print(i:read"*l"); i:close()
p:wait()