使用正则表达式来代替重复的标点符号？

Question

这里是这样的句子：

Happy birthday!! I have a good day. :) 

我想知道如何使用正则表达式如下甲酸处理这些句子：

Happy birthday! I have a good day. 

Answer 1

这里是如何做到这一点的PERL（因为你没有指定

my $str = "Happy birthday!! I have a good day. :)"; 
$str =~ s/([.!?]){2,}/$1/g; #remove multiple punctuation 
$str =~ s/[:;()]+//g;   #remove emoticon 
print $str;