Perl正则表达式

对于perl不是很了解的同学们可以看看，这个还是蛮有效果的