びっくりポン

昨日の記事のコードでは、Curl.setoptという関数を用いてハンドルに対するオプションを設定していたが、同じ事を少し違う書き方で書くこともできるようだ。

一つは、オプションの種類に応じた関数を使って値をセットする方法で、もう一つは、オブジェクト指向のメソッドを使った方法だ。それぞれ次のようになる。

let download src dst =

  let oc = open_out dst in

  let write s = output_string oc s; String.length s in

  let conn = Curl.init () in

    Curl.set_url conn src;

    Curl.set_userpwd conn "anonymous:ocaml_user@";

    Curl.set_writefunction conn write;

    Curl.perform conn;

    Curl.cleanup conn;

    close_out oc

let download src dst =

  let oc = open_out dst in

  let write s = output_string oc s; String.length s in

  let h = new Curl.handle in

    h # set_url src;

    h # set_userpwd "anonymous:ocaml_user@";

    h # set_writefunction write;

    h # perform;

    h # cleanup;

    close_out oc