标签： regex perl
之后我有几个句号，我不能使用g修饰符：
s/\.([^.]+)\./;\1;/
或
s/\./;/ s/\./;/
你能想到更优雅，更简单的东西吗？
我真的没有想到提供任何例子都很重要。搜索字符串可以是完整的句子：
2002年1月29日; 21：50：10; Som.eo.ne; some.thi.ng;
答案 0 :(得分：0)
不简单，但如果您不知道点数，可能会有所帮助。
substr($_,0,index($_,";"))=~s/[.]/;/g
但你也可以分手。