在OCaml中编写cat：使用Unix.read

Question

我正在尝试编写小实用程序以习惯使用OCaml进行Unix编程。 这是我对cat的尝试：

    open Unix ;;

    let buffer_size = 10
    let buffer = String.create buffer_size

    let rec cat = function
      | [] -> ()
      | x :: xs ->
        let descr = openfile x [O_RDONLY] 0 in

        let rec loop () =
          match read descr buffer 0 buffer_size with
            | 0 -> ()
            | _ -> print_string buffer; loop () in
        loop ();
        print_newline ();
        close descr;
        cat xs ;;


    handle_unix_error cat (List.tl (Array.to_list Sys.argv))

看来，问题是，在最后调用read ，缓冲区不完全填补，因为没有什么更多的阅读，以前包含在buffer被打印的内容也结束。 我使用read读取了一些示例代码，并且每次重新填充缓冲区时它们似乎都没有使用String.create （无论如何，仍然用一些字符填充它...）; 所以我该怎么做？ 谢谢。

Answer 1

Unix.read的返回（你忽略，除了检查0）是你读过的字符数，所以你只应该使用缓冲区的那么多字符。

但实际上，为什么要使用低级Unix的东西呢？ 为什么不使用常规的OCaml文件打开和读取功能？