将 Fortran 中带有 Err 说明符的 OPEN 函数转换为 PHP 中的 fopen 函数

Question

我需要在 php 中找到 fortran 行的等效表达式： fortran 代码：

10    OPEN(UNIT=10,FILE='TEST.OUT',STATUS='NEW', ERR=9001)
      GOTO 11
9001  OPEN(UNIT=10,FILE='TEST.OUT')
      CLOSE(10,STATUS='DELETE')
      OPEN(UNIT=2,FILE='fort2')
      CLOSE(2,STATUS='DELETE')
      GOTO 10
11    OPEN(UNIT=7,FILE='TEST.SUM',STATUS='NEW')

我想将此代码转换为 php 代码。我想使用 fopen 函数，但我不知道如何让它跳转到第 9001 行以首先删除旧文件（如果有任何旧文件）。 非常感谢您的帮助。

Answer 1

我不知道 Fortran 代码到底在做什么，但听起来你想要这样：

$fh = fopen('TEST.OUT', 'w');

注意 'w' 模式的描述：

仅供写入；将文件指针放在文件的开头并将文件截断为零长度。如果该文件不存在，请尝试创建它。

http://php.net/manual/en/function.fopen.php

否则可能：

do {
    $fh = @fopen('TEST.OUT', 'x');
    if (!$fh) {
        unlink('TEST.OUT');
        unlink('fort2');
    }
} while (!$fh);

'x'：创建并打开仅供写入；将文件指针放在文件的开头。如果文件已存在，则 fopen() 调用将失败并返回 FALSE 并生成 E_WARNING 级别的错误。如果该文件不存在，请尝试创建它。

不过，您应该小心不要陷入无限循环。

您也可以自己进行这些检查：

if (file_exists('TEST.OUT')) {
    unlink('TEST.OUT');
    unlink('fort2');
}