(************************************************************
   external_process.ml	Created      : Thu Jun 12 19:44:33 2003
  			Last modified: Thu Jun 12 20:18:11 2003
  Compile: ocamlc unix.cma external_process.ml -o external_process #
  FTP Directory: sources/ocaml #
************************************************************)
(** 
 * 外部プロセスとパイプを使ってやりとりする。コマンド部分はシェル (sh)
 * で解釈実行されるのでリダイレクトもできる。外部から入力された
 *  文字列をこの関数に渡すときは入力文字列をチェックすべき。
 *)
let _ =
  let op = Unix.open_process_out "cat > hoge.txt" in
  output_string op "aki";
  Unix.close_process_out op
    (** close_out op でも多分 OK *)