UTL_FILE.GET_LINE修剪我的XML标记

DECLARE
  file_handle UTL_FILE.FILE_TYPE;
  file_path VARCHAR2(100) := '文件路径';
  file_name VARCHAR2(100) := '文件名';
  line_text VARCHAR2(32767);
BEGIN
  -- 打开文件
  file_handle := UTL_FILE.FOPEN('目录路径', file_name, 'r');

  -- 逐行读取文件内容
  LOOP
    UTL_FILE.GET_LINE(file_handle, line_text);
    
    -- 修剪XML标记
    line_text := REGEXP_REPLACE(line_text, '<[^>]+>', '');

    -- 处理修剪后的文本
    -- ...

    -- 退出循环条件
    EXIT WHEN UTL_FILE.IS_OPEN(file_handle) = 0;
  END LOOP;

  -- 关闭文件
  UTL_FILE.FCLOSE(file_handle);
EXCEPTION
  WHEN UTL_FILE.INVALID_PATH THEN
    DBMS_OUTPUT.PUT_LINE('无效的文件路径');
  WHEN UTL_FILE.INVALID_MODE THEN
    DBMS_OUTPUT.PUT_LINE('无效的文件模式');
  WHEN UTL_FILE.INVALID_OPERATION THEN
    DBMS_OUTPUT.PUT_LINE('无效的文件操作');
  WHEN UTL_FILE.READ_ERROR THEN
    DBMS_OUTPUT.PUT_LINE('读取文件错误');
  WHEN UTL_FILE.WRITE_ERROR THEN
    DBMS_OUTPUT.PUT_LINE('写入文件错误');
  WHEN UTL_FILE.INTERNAL_ERROR THEN
    DBMS_OUTPUT.PUT_LINE('内部错误');
END;