正则请教

Eva326

正在学习正则，遇到一个问题求指教：
假如字符串$a="aa,bb,cc,dd",如何匹配最后一个，号之前的内容，得到：$a="aa,bb,cc"
尝试$a=~m/(.*),/; 貌似不行，求大神指教！

jason680

回复 1# Eva326

$ perl -e '$a="aa,bb,cc,dd";if($a=~m/(.*),/){print "$1\n"}'
aa,bb,cc

sunzhiguolu

1. $a =~ s/(.*),.*/$1/

复制代码