OCamlで標準入力からデータを取得したい

input_byte stdin で標準入力からバイトを受け取ることができる。

以下はサンプルのループバックプログラム。標準入力から受け取ったデータをそのまま標準出力へ出力する。

ちなみに、print_char のあとに flush stdout してるのは、バッファのフラッシュを行わないと出力した文字が画面に表示されないから。

code:loopback.ml

let () =

while true do

let b = input_byte stdin in

print_char (Char.chr b);

flush stdout

done

実行してみる。

code:sh

$ ocaml loopback.ml

HELLO

WORLD

123

実行画面。

https://gyazo.com/68430669189bd3cf05a16e96f5f64893