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文件打开和读取功能？

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

1 个答案: