10 lines
346 B
OCaml
10 lines
346 B
OCaml
let load_lines filename =
|
|
In_channel.with_open_text filename In_channel.input_lines |> Array.of_list
|
|
|
|
let () =
|
|
if Array.length Sys.argv < 2 then (
|
|
Printf.eprintf "Usage: %s <logfile>\n" (Filename.basename Sys.argv.(0));
|
|
exit 1);
|
|
|
|
let contents = load_lines Sys.argv.(1) in
|
|
Printf.printf "Loaded %d lines\n" (Array.length contents)
|