(************************************************************
   strtest.ml		Created      : Sun Jan  5 11:56:56 2003
  			Last modified: Sun Jan 05 12:08:38 2003
  Compile: ocamlopt.opt str.cmxa strtest.ml -o strtest #
  FTP Directory: sources/ocaml #
************************************************************)
(**
   group は \\( っていうふうに ( をエスケープした文字列にしなけれ
  ばならない。
  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>
*)
let anchor_regexp = 
  Str.regexp_case_fold ".*<a +href=\"?\\([^\"]+\\)\"?.*>"

let target = "<a href=\"index.html\">"
let _ =
  if Str.string_match anchor_regexp target 0 then
    print_endline (Str.matched_group 1 target)
  else
    print_endline "not matched"