Chuyển đổi curl sang OCaml

Cohttp là thư viện HTTP client và server tiêu chuẩn cho OCaml. Nó hỗ trợ cả backend Lwt (luồng nhẹ) và Async cho I/O đồng thời. Cài đặt bằng opam install cohttp-lwt-unix. Nó cung cấp một API hàm (functional), type-safe cho các yêu cầu HTTP. curl2code sử dụng Cohttp cho tất cả các chuyển đổi OCaml.

Cohttp là thư viện HTTP OCaml tiêu chuẩn với hỗ trợ Lwt/Async. ocurl bao bọc libcurl, cho phép truy cập tất cả các tính năng của curl từ OCaml. piaf mới hơn, hỗ trợ HTTP/2 nguyên bản. Sử dụng Cohttp cho OCaml chuẩn mực (idiomatic), ocurl khi bạn cần các tính năng đặc thù của curl. Đối với các ngôn ngữ hàm tương tự, hãy xem curl sang Elixir hoặc curl sang Clojure.

Thêm header Authorization vào yêu cầu: Header.add headers "Authorization" ("Bearer " ^ token). Đối với Basic auth, mã hóa base64 thông tin xác thực bằng gói base64. Các header của Cohttp là bất biến (immutable) — hãy tạo chúng bằng Header.of_list hoặc chuỗi các lệnh gọi Header.add.

Xây dựng body multipart thủ công với các chuỗi boundary, hoặc sử dụng một thư viện như multipart_form. Thiết lập header Content-Type với boundary. Body của Cohttp là một chuỗi đơn giản hoặc stream — định dạng payload multipart theo RFC 2046. curl2code xử lý chuyển đổi cờ -F.

Cohttp với Lwt trả về các promise — sử dụng cú pháp Lwt.catch hoặc try%lwt ... with để xử lý lỗi. Kiểm tra mã trạng thái phản hồi bằng Response.status response. Hệ thống kiểu của OCaml đảm bảo bạn xử lý các trường hợp thất bại. Sử dụng pattern matching trên các mã trạng thái để xử lý triệt để.

Với backend Lwt: sử dụng Lwt.all [request1; request2] để thực thi song song hoặc Lwt_list.map_p để ánh xạ qua các URL. Với Async: sử dụng Deferred.all. Tính đồng thời cộng tác (cooperative concurrency) của OCaml thông qua Lwt hoặc Async cung cấp I/O đồng thời an toàn, hiệu quả mà không lo ngại về an toàn luồng (thread safety).

Với Lwt, sử dụng Lwt.pick [request; Lwt_unix.sleep timeout >>= fun () -> Lwt.fail Timeout] để thực hiện cuộc đua giữa yêu cầu và bộ hẹn giờ. Cohttp không có các tùy chọn timeout tích hợp sẵn — hãy bao bọc Lwt promise bằng một timeout combinator. Đối với việc thử lại (retries), hãy triển khai một hàm đệ quy với số lần thử giảm dần.

Cohttp không có hỗ trợ proxy tích hợp sẵn. Sử dụng ocurl (libcurl bindings) cho nhu cầu proxy: thiết lập tùy chọn CURLOPT_PROXY. Ngoài ra, thiết lập biến môi trường HTTP_PROXY và cấu hình kết nối để định tuyến qua host và port của proxy một cách thủ công.

Chuyển đổi một lệnh curl POST như curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' URL sang OCaml bằng cách sử dụng curl2code. Mã được tạo sử dụng Client.post ~body:(Cohttp_lwt.Body.of_string json) uri. curl2code tự động phát hiện các cờ -d/--data với nội dung JSON và thiết lập header Content-Type phù hợp trong mã Cohttp.

Cung cấp curl -H "Authorization: Bearer YOUR_TOKEN" URL cho curl2code và nó sẽ tạo mã Cohttp với header xác thực: Header.add headers 'Authorization' 'Bearer YOUR_TOKEN'. curl2code phát hiện Bearer tokens từ cả hai cờ -H "Authorization: Bearer ..." và --oauth2-bearer. Đối với Basic auth, hãy sử dụng -u user:pass.

curl2code chuyển đổi curl -H "Content-Type: application/json" URL sang mã Cohttp với header chính xác: Header.add headers 'Content-Type' 'application/json'. Đối với dữ liệu -d, curl mặc định là application/x-www-form-urlencoded; đối với tải lên biểu mẫu -F, nó sử dụng multipart/form-data. curl2code ánh xạ từng loại tới Cohttp API chính xác.