到目前为止,这就是我所拥有的。这不是您所需要的吗?我不断收到错误“错误:未绑定(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/

10-12 05:58
查看更多