ocaml - 如何从 OCaml 中的文本文件中逐行读取？

Question

这就是我到目前为止所拥有的。这不是你所需要的吗？我不断收到错误“错误:未绑定(bind)模块标准”

let r file =
    let chan = open_in file in
    Std.input_list (chan)

Answer 1

仅使用标准库的命令式解决方案:

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