ocaml - 从文件返回值 - ocaml

Question

我正在尝试读取一个文件并将从文件中读取的元素作为另一个函数的输入返回。

从文件中读取时如何返回值？
我尝试了我所知道的一切，但仍然无可救药地迷失了。

我的代码如下:

let file = "code.txt";;

let oc  = open_out file in    (* create or truncate file, return channel *)

    fprintf oc "%s\n" (play);   (* write code to file returned from calling (play) function *)   

    close_out oc    ;;


(*read from file*)


let read l=

    let f x =

        let ic  = open_in file in

        let line = input_line ic in  (* read line from in_channel and discard \n *)

            print_endline line;          (* write the result to stdout *)

                ((x ^ line) :: l);

            flush stdout;                

            close_in ic ;
    in
     f l
    ;;

prompt:  read;; function call outputs:

- : unit = ()

我的文件包含一个字符串，它是另一个函数的输入所需的代码。

请帮忙。我不确定我哪里出错了。

谢谢你。

Answer 1

如果使用 ; 将多个表达式排序在一起整个表达式的值是序列中最后一个表达式的值。

所以如果你有类似 ((x ^ line) :: l); close_in ic 的东西该表达式的值是 close_in ic 的值, 即 () .

显然这不是你想要的。为了使((x ^ line) :: l)整个表达式的结果，你应该把它放在 close_in ic 之后.