将 shell 输出存储在变量中

如何解决将 shell 输出存储在变量中

我是 prolog 的新手，并尝试使用 Shell 函数将值读入变量。我正在尝试做的是：

运行 shell 命令，输出 0 到多行
将输出存储在变量中
继续对变量进行操作

这将等同于这样的事情

$ find ./ -name "example*"
./example1
./example2

$ ls -la ./example1
$ ls -la ./example2

我可以做第一部分

find_files() :- shell("find ./ -name \"example*\" 2>/dev/null").

然后你会如何处理每一行，例如./example1 和 ./example2 然后将它们存储在一个变量中以在另一个函数中运行？

有这样的吗？ run_ls 不能正常工作，但这是我试图实现的逻辑。

concatenate(StringList,StringResult) :-
    maplist(atom_chars,StringList,Lists),append(Lists,List),atom_chars(StringResult,List).

run_ls(X) :- shell(concatenate(["ls ",X],String)).

find_files :- shell("find ./ -name \"example*\" 2>/dev/null"),run_ls(output_variable_from_shell).

解决方法

您实际上想使用 process_create/3 而不是 shell/1 或 shell/2。

然后，您可以通过管道捕获子进程写入其标准输出或标准错误的任何内容。

在 process_create/3 页面上，Boris 给出了这个示例来捕获输出：

bash_command(Command,Output) :-
        process_create(path(bash),['-c',Command],[stdout(pipe(Out))]),read_string(Out,_,Output),close(Out).

有了这个：

?- bash_command("echo banana | tr na bo",Output).
Output = "bobobo\n".

对于find，最好让它打印由 0 字符分隔的路径：

find . -print0

然后，您可以安全且轻松地将在 \x00 字符处获得的大字符串拆分为路径列表，而不必关心路径名中的空格或 CR/LF（好吧，我认为是这样，它可能由于某些原因无法工作）。