使用正則表達式來代替重複的標點符號？

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;