Если файл существует, продолжите [dублировать]

Вы пробовали sudo apt-get install, а затем его имя пакета? В этом случае это sudo apt-get install gnome-system-monitor.

Если вы не знаете, что это такое: Откройте терминал, скопируйте и вставьте следующую команду, нажмите Enter, введите свой пароль (который вы не увидите звездочками, так как вы тип - просто продолжайте печатать), нажмите Enter и ответьте на любые подсказки, которые могут отображаться на экране.

Для Ubuntu последней версией System Monitor является 3.20.1-1.

3
задан 22 June 2015 в 18:55

1 ответ

Вы можете использовать внутреннее inquire:

module fileIO

interface operator( .f. )
  module procedure file_exists
end interface

contains

function file_exists(filename) result(res)
  implicit none
  character(len=*),intent(in) :: filename
  logical                     :: res

  ! Check if the file exists
  inquire( file=trim(filename), exist=res )
end function

end module

program test
  use fileIO

  print *, file_exists('/dev/null')
  print *, .f. '/dev/null'

end program
9
ответ дан 15 August 2018 в 16:59
  • 1
    Добавлена ​​версия оператора. Но я согласен с @francescalus в том, что это перебор. – Alexander Vogt 6 May 2015 в 22:17
  • 2
    Я согласен, что с вами и то, что оператор переборщил. Но потом я подозреваю, что @Zeus программирует на гораздо более продвинутом языке, чем Fortran, и использует Fortran до тех пор, пока не будет доступен компилятор для этого другого языка. – High Performance Mark 6 May 2015 в 22:22
  • 3
    Естественно, моя функция делает гораздо больше. Я подумал положить тривиальную вещь, которая не будет вас волновать. ;) – Zeus 6 May 2015 в 22:44
  • 4
    Я делаю некоторые функции в fortran. Я работаю над расширяемым программированием, где язык может вырабатываться пользователями. Проверьте Guy Steele's Growing a Language на youtube.com/watch?v=_ahvzDzKdB0 – Zeus 6 May 2015 в 22:52

Другие вопросы по тегам:

Похожие вопросы: