ユーザーのホームディレクトリにあるファイルを開く

Question

Core.In_channelライブラリを使用して私は奇妙な問題に遭遇しました。ここではコードの一部は、ユーザのホームディレクトリに

open Core.Std 
In_channel.with_file "~/.todo_list" ~f:(fun in_c -> 
    (* Do something here... *) 
) 

をファイルを開くためのものだ、これを実行している場合しかし、ここで私が得るものです：

Exception: (Sys_error "~/.todo_list: No such file or directory"). 

私は~/.todo_listが存在することを絶対的に確信しているが、ファイル名がOCamlによって誤解されていると思われます。

私はここで何が欠けていますか？

Answer 1

他の人からも言われているように、~の拡張は、基本システムではなくシェルによって行われます。 with_fileへの呼び出しにはシェルが含まれていないので、文字列は文字通りファイル名として解釈されます。

ログインしているユーザーの代わりにコードが実行されている場合、ホームディレクトリは環境変数HOMEの値として使用できます。

# Unix.getenv "HOME";; 
- : string = "/Users/username" 

そうしないと、ユーザーデータベースからホームディレクトリを抽出する必要があります。

# let open Unix in (getpwnam "username").pw_dir;; 
- : string = "/Users/username"