该子例程的调用方式如下所示:
call getenv( ename, evalue ) |
|||
ename |
character*n |
输入 |
寻找的环境变量名称 |
evalue |
character*n |
输出 |
找到的环境变量值,如果不成功,则为空白。 |
ename 和 evalue 的大小必须足够大,以便能容纳相应的字符串。
如果 evalue 太短而不能容纳整个字符串值,则字符串将被截断以符合 evalue。
子例程 getenv 在环境列表中搜索格式为 ename=evalue 的字符串,如果找到,则通过 evalue 返回值;否则在 evalue 中填入空白。
示例:使用 getenv() 打印 $SHELL 值:
character*18 evalue call getenv( ’SHELL’, evalue ) write(*,*) "’", evalue, "’" end |
另请参见:execve(2) 和 environ(5)。