求教：重复字符的删除

frankhyk

如何能将文件中重复出现的字符删除掉啊？
例如要处理的文件内容为：
AABBCCDD          EEFFGG
HHIIJJKKLLMM    NNOOPPQQRRSS
TTUU                  VVWWXXYYZZaabbcc

希望处理后为：
ABCD      EFG
HIJKLM   NOPQRS
TU          VWXYZabc
用perl该如何实现啊？小弟初来咋到，跪谢各位大侠！

jason680

回复 1# frankhyk


# echo "AABBCCDDDDDD" | perl -lape '{s/(\w)(\1+)/$1/g}'
ABCD

   

sjdy521

回复 2# jason680


    -a多余了吧

jason680

回复 3# sjdy521

you are right.

BTW, usually I use "lane" for English word to remember argument.
   

sjdy521

回复 2# jason680


    我比较吹毛求疵，$2也多余了

yizhengming

.............

frankhyk

回复 2# jason680

万分感谢！ 受教了。
   

jason680

回复 5# sjdy521


would you like it

echo "AABBCCDDDDDD" | perl -pe 's/(\w)\K\1+//g'
ABCD
   

sjdy521

回复 8# jason680


    这是perlre里的了，没啥可说的

yinyuemi

1. echo 'ABABABCCDD          EEFFGG
   
2. HHIIJJKKLLMM    NNOOPPQQRRSS
   
3. TTUU                  VVWWXXYYZZaabbcc' |perl -nle 'print join "\t",map{s/(\w).*\1/\1/g;$_}split;'
   
4. ABCD    EFG
   
5. HIJKLM  NOPQRS
   
6. TU      VWXYZabc

复制代码