たった20行のコードでひたすらアイドル水着画像を集める（OCamlだよ）

crawler.ml

#!/usr/bin/env ocamlscript
Ocaml.packs := ["batteries"; "netclient"]
--
open BatPervasives
open Str
open Http_client.Convenience

let url = "http://matome.naver.jp/odai/2135350364969742801"
let pattern = regexp "<img src=\".+\".*class=\"MTMItemThumb\".*/>"

let search pattern str =
  let aux offset =
    try
      let offset' = search_forward pattern str offset
      in Some (matched_string str, offset' + 1)
    with Not_found -> None
  in BatEnum.unfold 0 aux

let () =
  http_get url |> search pattern |> iter print_string