OCaml > Lecture fichier

open Printf

let file = "test.dat"
let message = "Hello!"

let _ =

  let fichierEcriture = open_out file in
  fprintf fichierEcriture "%s\n" message;
  close_out fichierEcriture;

  let fichierLecture = open_in file in
  try
    let ligne = input_line fichierLecture in
    print_endline ligne;
    flush stdout;
    close_in fichierLecture

  with e ->
    close_in_noerr fichierLecture;
    raise e