到目前为止,这就是我所拥有的。这不是您所需要的吗?我不断收到错误“错误:未绑定(bind)模块标准”
let r file =
let chan = open_in file in
Std.input_list (chan)
最佳答案
仅使用标准库的命令式解决方案:
let read_file filename =
let lines = ref [] in
let chan = open_in filename in
try
while true; do
lines := input_line chan :: !lines
done; !lines
with End_of_file ->
close_in chan;
List.rev !lines ;;
如果您拥有Batteries-included库,则可以将文件读入Enum.t并对其进行如下迭代:let filelines = File.lines_of filename in
Enum.iter ( fun line -> (*Do something with line here*) ) filelines
关于ocaml - 如何从OCaml的文本文件中读取行?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/5774934/