Question

我遇到以下问题。我想在Fortran90中编写一个程序，我希望能够这样调用：

./program.x < main.in > main.out

除了“main.out”（我可以在调用程序时设置其名称）时，必须编写辅助输出，我希望它们具有与“main.in”或“main.out”类似的名称（它们实际上并不称为“主要”）;但是，当我使用：

INQUIRE(UNIT=5,NAME=sInputName)

sInputName的内容变为“Stdin”而不是文件名。有没有办法在程序调用时获取链接到stdin / stdout的文件名？??

Answer 1

不幸的是，i / o重定向的重点在于你的程序不必知道输入/输出文件是什么。在基于unix的系统上，您无法查看命令行参数，因为< main.in > main.out实际上是由shell处理的，它在调用程序之前使用这些文件来设置标准输入和输出。

您必须记住，有时标准输入和输出甚至不是文件，因为它们可能是终端或管道。 e.g。

./generate_input | ./program.x | less

因此，一种解决方案是重新设计程序，以便输出文件是显式参数。

./program.x --out=main.out

这样你的程序知道文件名。费用是您的程序现在负责打开（并且可能创建）文件。

也就是说，在Linux系统上，您实际上可以找到标准文件句柄指向特殊/ proc文件系统的位置。每个文件描述符都有符号链接

/proc/<process_id>/fd/0 -> standard_input
/proc/<process_id>/fd/1 -> standard_output
/proc/<process_id>/fd/2 -> standard_error

抱歉，我不知道fortran，但检查输出文件的psudeo代码方式可能是：

out_name = realLink( "/proc/"+getpid()+"/fd/1" )
if( isNormalFile( out_name ) )
    ...

请记住我之前说过的内容，没有任何内容，这实际上是一个普通的文件。它可能是一个终端设备，一个管道，一个网络套接字，无论如何......另外，我不知道除了redhat / centos linux之外还有哪些其他操作系统，所以它可能不那么便携。更多的诊断工具。

Answer 2

也许内在的子程序get_command和/或get_command_argument可以提供帮助。它们是在fortran 2003中引入的，并返回用于调用程序的完整命令行或指定的参数。