Skip to content

Instantly share code, notes, and snippets.

@ichiban
Created January 13, 2013 07:48
Show Gist options
  • Save ichiban/4522877 to your computer and use it in GitHub Desktop.
Save ichiban/4522877 to your computer and use it in GitHub Desktop.
たった20行のコードでひたすらアイドル水着画像を集める(OCamlだよ)
#!/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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment