PLSQL Oracle SFTP连接

DECLARE
  l_conn        UTL_TCP.connection;
  l_output      UTL_FILE.file_type;
  l_hostname    VARCHAR2(100) := 'sftp.example.com';
  l_port        PLS_INTEGER := 22;
  l_username    VARCHAR2(100) := 'username';
  l_password    VARCHAR2(100) := 'password';
  l_remote_file VARCHAR2(100) := '/path/to/remote/file.txt';
  l_local_file  VARCHAR2(100) := '/path/to/local/file.txt';
BEGIN
  -- 建立与SFTP服务器的连接
  l_conn := UTL_TCP.open_connection(remote_host => l_hostname, remote_port => l_port);

  -- 登录SFTP服务器
  UTL_TCP.write_line(l_conn, 'SSH-2.0-PLSQL');
  UTL_TCP.flush(l_conn);
  UTL_TCP.write_line(l_conn, l_username);
  UTL_TCP.flush(l_conn);
  UTL_TCP.write_line(l_conn, l_password);
  UTL_TCP.flush(l_conn);

  -- 上传文件到SFTP服务器
  UTL_TCP.write_line(l_conn, 'put ' || l_local_file || ' ' || l_remote_file);
  UTL_TCP.flush(l_conn);

  -- 下载文件到本地
  l_output := UTL_FILE.fopen('TEMP', 'downloaded_file.txt', 'w');
  UTL_TCP.write_line(l_conn, 'get ' || l_remote_file);
  UTL_TCP.flush(l_conn);

  -- 关闭连接
  UTL_TCP.write_line(l_conn, 'exit');
  UTL_TCP.flush(l_conn);
  UTL_TCP.close_connection(l_conn);
  UTL_FILE.fclose(l_output);
END;
/