operating-system - 在 Fortran 中获取文件分隔符

Question

能否请您告诉我如何在运行时获取当前操作系统的文件分隔符，例如Windows中的\和Unix中的/，以及Fortran中的运行时。

Answer 1

您可以使用 Fortran 2003 标准内部过程 GET_ENVIRONMENT_VARIABLE 来执行类似的操作。示例:

CHARACTER(LEN=99999) :: path
CHARACTER(LEN=1)     :: path_separator
CALL GET_ENVIRONMENT_VARIABLE('PATH',path)
path_separator=path(1:1)
WRITE(*,*)'Path separator is ',path_separator
END

该程序将输出“/”作为 UNIX 或 Linux 中的路径分隔符。您也可以从其他环境变量中获取它。请注意，此示例针对 UNIX/Linux 进行了硬连线。您需要一些不同的逻辑来提取例如“\”适用于Windows，但我对这个系统不熟悉。我依稀记得从 Win95 开始，有类似“c:\.....”的内容，因此在 Windows 中，您可能会在 path(3:3) 中查找“\”。

希望这有帮助。