使用 camlzip 压缩单个文件

任务

压缩 / 使用 GZIP 压缩单个文件

使用的 Opam 包

• camlzip 测试版本: 1.11 — 使用的库: camlzip

代码

(* We open both files (`source` with `In_channel.open_bin` and `dest` with `Gzip.open_out`) and transfer bytes through a bytes buffer. *) let buffer_size = 4096 let gzip source dest = let gz_file = Gzip.open_out ~level:9 dest in let buffer = Bytes.make buffer_size '*' in let ic = In_channel.open_bin source in let rec aux () = let len = In_channel.input ic buffer 0 buffer_size in if len <> 0 then begin Gzip.output gz_file buffer 0 len; aux () end in aux (); Gzip.close_out gz_file; In_channel.close ic

let buffer_size = 4096

let gzip source dest =
  let gz_file = Gzip.open_out ~level:9 dest in
  let buffer = Bytes.make buffer_size '*' in
  let ic = In_channel.open_bin source in
  let rec aux () =
    let len = In_channel.input ic buffer 0 buffer_size in
    if len <> 0 then
      begin
        Gzip.output gz_file buffer 0 len;
        aux ()
      end
  in
  aux ();
  Gzip.close_out gz_file;
  In_channel.close ic

配方不起作用？评论不清楚或过时了？