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

发布时间：2020-12-15 17:01:03 所属栏目：安全来源：网络整理

导读：我正在尝试编写小实用程序以习惯使用OCaml进行Unix编程.这是我对猫的尝试： 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 loo

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

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读取了一些示例代码,并且每次重新填充缓冲区时它们似乎都没有使用String.create(无论如何,仍然用一些字符填充它…);所以我该怎么做？谢谢.

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!