从OCaml的fileinput在OCaml中执行函数

如何执行（在OCaml中）我们从下面描述的fileinput中获得的行

let read_file filename =   
  let lines = ref [] in  
    let chan = open_in filename in  
    try   
      while true; do   
        lines := input_line chan :: !lines   
      done; []   
    with End_of_file ->  
      close_in chan;   
      List.rev !lines

（我）不清楚你在问什么。如果您有一个包含一些OCaml代码的文件，运行它的一种方法是将其加载到顶级。首先，创建一个名为fileread.ml的文件，其中包含文本。然后（从命令行）：

然后按如下方式编译和运行：

$ ocamlc -o fileread fileread.ml
$ fileread
let read_file filename =
let lines = ref [] in
let chan = open_in filename in
try
while true; do
lines := input_line chan :: !lines
done; []
with End_of_file ->
close_in chan;
List.rev !lines

let () = List.iter print_endline (read_file "fileread.ml")

let () = List.iter print_endline (read_file "fileread.ml")

$ ocamlc -o fileread fileread.ml
$ fileread
let read_file filename =
let lines = ref [] in
let chan = open_in filename in
try
while true; do
lines := input_line chan :: !lines
done; []
with End_of_file ->
close_in chan;
List.rev !lines

let () = List.iter print_endline (read_file "fileread.ml")