CentOS Fortran数据库连接方法是什么

CentOS 上 Fortran 连接数据库的实用方法

一、总体思路

• 安装基础工具：确保有 gfortran 与数据库客户端开发包（如 MySQL-devel、PostgreSQL-devel、Oracle Instant Client）。
• 选择连接方式：优先使用数据库提供的 C API，通过 Fortran 的 ISO C Binding 调用；Oracle 亦可使用 OCI。
• 正确编译链接：编译时显式链接数据库客户端库（如 -lmysqlclient、-lpq、-lclntsh）。
• 环境与网络：配置库路径（如 LD_LIBRARY_PATH），并开放数据库端口、调整 firewalld/SELinux 以允许访问。
• 远程访问建议：优先走 SSH 隧道 或白名单，避免直接暴露数据库端口。

二、环境与依赖准备

• 编译器与工具链：安装 gfortran 与开发工具组，便于后续链接数据库库。
• 数据库客户端开发包：
  • MySQL：安装 mysql-devel（提供头文件与链接库）。
  • PostgreSQL：安装 postgresql-devel。
  • Oracle：安装 Oracle Instant Client 及 SDK/开发包。
• 运行时库路径：将数据库库目录加入 LD_LIBRARY_PATH，或在系统库目录中配置软链接，确保运行时可解析。
• 远程访问基础：
  • 开放端口（示例：firewall-cmd --permanent --add-port=3306/tcp && firewall-cmd --reload）。
  • 数据库侧授权（示例：MySQL 执行 GRANT … TO ‘user’@‘host’ 并 FLUSH PRIVILEGES;）。
  • 需要更强安全时，使用 SSH 隧道：ssh -L 3306:localhost:3306 user@remote_db。

三、连接方式对比与选择

说明：MySQL/PostgreSQL 通过 C API 在 Fortran 中调用最为直接；Oracle 官方提供 OCI 可被 C/Fortran 调用，传统 Pro*FORTRAN 亦可用但配置复杂、维护成本高。

四、最小示例 MySQL 连接代码与编译

• 代码示例（使用 MySQL C API 与 ISO C Binding，仅演示连接与关闭；需自行补充错误检查与 SQL 执行逻辑）：

program connect_mysql
  use, intrinsic :: iso_c_binding
  implicit none
  interface
    function mysql_init(ptr) bind(c, name="mysql_init")
      import c_ptr
      type(c_ptr), value :: ptr
      type(c_ptr) :: mysql_init
    end function mysql_init

    function mysql_real_connect(conn, host, user, passwd, db, port, unix_socket, client_flag) &
        bind(c, name="mysql_real_connect")
      import c_ptr, c_int, c_char
      type(c_ptr), value :: conn
      character(kind=c_char), intent(in) :: host(*), user(*), passwd(*), db(*)
      integer(c_uint), value :: port
      type(c_ptr), value :: unix_socket
      integer(c_ulong), value :: client_flag
      integer(c_int) :: mysql_real_connect
    end function mysql_real_connect

    subroutine mysql_close(conn) bind(c, name="mysql_close")
      import c_ptr
      type(c_ptr), value :: conn
    end subroutine mysql_close
  end interface

  type(c_ptr) :: conn
  integer(c_int) :: rc

  conn = mysql_init(c_null_ptr)
  if (.not. c_associated(conn)) then
    print *, "mysql_init failed"
    stop 1
  end if

  rc = mysql_real_connect(conn, &
    "localhost"//c_null_char, &   ! host
    "your_user"//c_null_char, & ! user
    "your_pass"//c_null_char, & ! password
    "your_db"//c_null_char,   & ! database
    0_c_uint, c_null_ptr, 0_c_ulong)
  if (rc == 0) then
    print *, "mysql_real_connect failed"
    call mysql_close(conn)
    stop 2
  end if

  print *, "Connected to MySQL successfully."

  call mysql_close(conn)
end program connect_mysql

• 编译与运行（库名与路径按实际环境调整）：
  • 编译：gfortran app.f90 -o app -lmysqlclient
  • 运行前确保 LD_LIBRARY_PATH 包含 MySQL 客户端库目录。

五、PostgreSQL 与 Oracle 的要点

• PostgreSQL
  • 安装 postgresql-devel，链接 -lpq；使用 libpq 的 C API 通过 ISO C Binding 在 Fortran 中调用。
  • 编译示例：gfortran app.f90 -lpq。
• Oracle
  • 安装 Oracle Instant Client（含 libclntsh.so 等），设置 ORACLE_HOME/LD_LIBRARY_PATH。
  • 通过 OCI 编写 C/Fortran 接口进行连接与 SQL 执行；传统 Pro*FORTRAN 可用但更繁琐。
  • 网络连通性：开放 1521/tcp，确保 listener.ora/tnsnames.ora 配置正确，可用 sqlplus 先行验证连通性。