perl 处理 回车 换行符

SQL> insert into tlcb values('中国'||chr(10),'杭州');

SQL> select * from tlcb;

NAME	   ADDRESS
---------- ----------
中国       杭州


抽出来的数据；
[oracle@oadb sbin]$ cat tlcb.TXT 
中国
   |杭州    |
   
   去掉换行符:
   
   my $exportOracleSql="select replace(name,chr(10),''),address from $dbUser.$table_name";
   
   [oracle@oadb sbin]$ cat tlcb.TXT 
   中国   |杭州    |

   
   
chr(13) 回车符：

insert into tlcb values('中国'||chr(13),'杭州');

replace(t.add_administration_num,chr(13),'');

发现数据不对了：

[oracle@oadb sbin]$ cat TLCB.TXT 
   |杭州    |
   |杭州    |
   
   SQL> select replace(name,chr(13),''),address from tlcb;

REPLACE(NA ADDRESS
---------- ----------
中国       杭州
中国       杭州

SQL> set linesize 200
SQL> set pagesize 200
SQL> select name,address from tlcb;

NAME	   ADDRESS
---------- ----------
      杭州
      杭州
my $exportOracleSql="select  replace(name,chr(13),''),address from $dbUser.$table_name";
	  
[oracle@oadb sbin]$ cat tlcb.TXT 
中国   |杭州    |
中国   |杭州    |