(************************************************************
   teacup.ml		Created      : Thu Jul 24 21:05:02 2003
  			Last modified: Thu Jul 24 21:19:08 2003
  Compile: ocamlc str.cma teacup.ml -o teacup #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)

let regexp = Str.regexp ".*投稿日： *\\([0-9]+\\)月\\([0-9]+\\)日(.+)\\([0-9]+\\)時\\([0-9]+\\)分"
  
let _ =
  let data = "<font size=2>　投稿日： 7月24日(木)01時18分15秒 <!-- Remote Host: pdd8211.tkyoac00.ap.so-net.ne.jp, Time: 1059009495 --></font>" in
  
  if Str.string_match regexp data 0 then
    let month = int_of_string (Str.matched_group 1 data) in
    let day = int_of_string (Str.matched_group 2 data) in
    let hour = int_of_string (Str.matched_group 3 data) in
    let min = int_of_string (Str.matched_group 4 data) in
    Printf.printf "%02d/%02d %02d:%02d" month day hour min
  else
    print_endline "not matched"