Ocaml 获取当前工作目录而不解析符号链接_Ocaml

Ocaml 获取当前工作目录而不解析符号链接

ocaml

Ocaml 获取当前工作目录而不解析符号链接,ocaml,Ocaml,Sys.getcwd似乎总是将“realpath”返回到当前目录，自动解析符号链接例如： $ cd /tmp $ mkdir real $ ln -s real symlink $ cd symlink $ ocaml # Unix.getcwd();; - : string = "/tmp/real" 如何获得shell所看到的“实际”cwd，即/tmp/symlink，理想情况下不需要外部库？我假设您使用的是类Unix系统（Linux或类似系统）在Unix中，“实

Sys.getcwd

似乎总是将“realpath”返回到当前目录，自动解析符号链接

例如：

$ cd /tmp
$ mkdir real
$ ln -s real symlink
$ cd symlink
$ ocaml

# Unix.getcwd();;
- : string = "/tmp/real"

如何获得shell所看到的“实际”cwd，即

/tmp/symlink

，理想情况下不需要外部库？

我假设您使用的是类Unix系统（Linux或类似系统）

在Unix中，“实际”当前目录通常是文件系统中打开的特定文件，而不是字符串。获取此目录的字符串表示的方法需要搜索包含目录中的文件及其包含目录，依此类推，直到文件系统的根目录

由于硬链接和软链接，同一文件可以有多个名称。所以这个搜索过程没有一个结果

此外，这是一个相当缓慢的过程。为了避免重复搜索，shell倾向于缓存它们对当前目录名称的想法。您要求的是从其他进程中找出shell中此缓存的内容。一般来说，这是不可能的

但是，许多shell使用当前目录的名称定义环境变量。所以你可以试试这个：

$ mkdir real
$ ln -s real symlink
$ cd symlink
$ ocaml
        OCaml version 4.10.0

# Sys.getenv "PWD";;
- : string = "/Users/jeffsco/tryhofp/symlink"

作为旁注，shell完全有可能在当前目录的名称上出错：

$ mkdir mydir
$ cd mydir
$ mv /Users/jeffsco/mydir /Users/jeffsco/otherdir
$ pwd
/Users/jeffsco/mydir
$ ls /Users/jeffsco/mydir
ls: /Users/jeffsco/mydir: No such file or directory
$ /bin/pwd
/Users/jeffsco/otherdir

这里的要点是，

pwd

是一个shell内置程序，显示shell认为当前目录的名称。但贝壳是错的。

/bin/pwd

命令执行我上面描述的搜索，并获取当前目录的真实名称。