在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,缓冲区并没有完全填满,因为没有什么可读的,因此先前包含的缓冲区的结尾也被打印出来.我阅读了一些使用的示例代码,read并且String.create每次重新填充缓冲区时都没有使用它们(无论如何,它仍然用一些字符填充...); 所以我该怎么做？谢谢.

Answer 1

返回的值Unix.read（除了检查 0 之外，您将忽略它）是您已读取的字符数，因此您只应该使用缓冲区的那么多字符。

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