Czytanie zawartości HTML adresu URL w OCaml

Question

Chciałbym napisać funkcję OCaml, która pobiera adres URL i zwraca ciąg znaków składający się z zawartości pliku HTML w tej lokalizacji. Jakieś pomysły?

Wielkie dzięki!

Best, Surikator.

Answer 1

robiłem zarówno z tych rzeczy, z wykorzystaniem ocurl i nethtml

ocurl do odczytania zawartości URL (tony właściwości tutaj, jest to minimum),

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) 

i od nethtml ; (Może trzeba skonfigurować DTD dla 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!