将查询结果导出到oracle存储过程中的csv。未打印最后一个列名

CREATE OR REPLACE PROCEDURE export_to_csv AS
  -- 定义变量
  v_file UTL_FILE.FILE_TYPE;
  v_query VARCHAR2(4000);
  v_output VARCHAR2(4000);
  v_directory VARCHAR2(100) := 'DIRECTORY_NAME'; -- 替换为实际的目录名

BEGIN
  -- 打开文件
  v_file := UTL_FILE.FOPEN(v_directory, 'output.csv', 'W');

  -- 执行查询语句
  v_query := 'SELECT column1, column2, column3 FROM your_table';
  EXECUTE IMMEDIATE v_query INTO v_output;

  -- 写入查询结果到CSV文件
  UTL_FILE.PUT_LINE(v_file, v_output);

  -- 关闭文件
  UTL_FILE.FCLOSE(v_file);
END;
/

BEGIN
  export_to_csv;
END;
/