ocaml - ファイルの内容から文字列バッファを出力する

Question

ファイルの内容を印刷したい。文字列バッファを使用しようとしました:

let ch = open_in "myfile.txt" in
let buf = Buffer.create 1024 in
(try Buffer.add_channel buf ch max_int with _ -> ());
close_in ch;

let string = Buffer.contents buf
print_endline string

これにより、構文エラーが発生します。

これどうやってするの？

Answer 1

適切なチャネル長を指定する必要があります。

let ic = open_in "foo" in
let len = in_channel_length ic in
let buf = Buffer.create len in
Buffer.add_channel bif ic len;
let str = Buffer.contents b in
print_endline str