Leggere i contenuti HTML di un URL in OCaml

Question

Vorrei scrivere una funzione OCaml che accetta un URL e restituisce una stringa composta dal contenuto del file HTML in quella posizione. Qualche idea?

Grazie mille!

Best, Surikator.

Answer 1

Ho fatto entrambe le cose utilizzando ocurl e nethtml

ocurl per leggere il contenuto dell'URL (tonnellate di proprietà qui, questo è il minimo),

let string_of_uri uri = 
    try let connection = Curl.init() and write_buff = Buffer.create 1763 in 
     Curl.set_writefunction connection 
       (fun x -> Buffer.add_string write_buff x; String.length x); 
     Curl.set_url connection uri; 
     Curl.perform connection; 
     Curl.global_cleanup(); 
     Buffer.contents write_buff; 
    with _ -> raise (IO_ERROR uri) 

e da nethtml ; (Potrebbe essere necessario impostare un DTD per Nethtml.parse)

let parse_html_string uri = 
    let ch = new Netchannels.input_string (string_of_uri uri) in 
    let docs = Nethtml.parse ?return_pis:(Some false) ch in 
    ch # close_in(); 
    docs 

Cheers!