Question

我想在Oracle 10g的PL / SQL中使用REGEXP_REPLACE来从字符串中删除尾随的HEX-0D。我从this question找到了正则表达式。

在Perl中，内容如下：

$output =~ tr/\x{d}\x{a}//d;

或

$output =~ s/\s+\z//;

如何将其转换为PL / SQL？

Answer 1

/* PL/SQL */

declare
  in_str constant varchar2(30) := 'foo' || chr(13) || 'bar' || chr(13);
  out_str varchar2(30);
begin
  dbms_output.put_line('in_str = ' || utl_raw.cast_to_raw(in_str));

  select regexp_replace(in_str, chr(13) || '$', '') into out_str from dual;

  dbms_output.put_line('out_str = ' || utl_raw.cast_to_raw(out_str));
end;
/

/* SQL */

select utl_raw.cast_to_raw('foo' || chr(13) || 'bar' || chr(13)) as BEFORE from dual;

select utl_raw.cast_to_raw(
  regexp_replace('foo' || chr(13) || 'bar' || chr(13), chr(13) || '$', '')
) as AFTER from dual;

/* OUTPUT */

Session altered.

in_str = 666F6F0D6261720D
out_str = 666F6F0D626172

PL/SQL procedure successfully completed.

BEFORE
------------------------------------------------------------------------------
666F6F0D6261720D

AFTER
------------------------------------------------------------------------------
666F6F0D626172

Answer 2

您还拥有RTRIM功能

select dump(a), dump(rtrim(a,chr(13))) from (select 'test'||chr(13) a from dual);

如何使用PL / SQL-REGEXP_REPLACE从字符串末尾删除0D？

2 个答案: