问题描述
我是 prolog 的新手,并尝试使用 Shell
函数将值读入变量。我正在尝试做的是:
这将等同于这样的事情
$ 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(好吧,我认为是这样,它可能由于某些原因无法工作)。