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 200SQL> set pagesize 200SQL> 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 中国   |杭州    |中国   |杭州    |