正则问题

树上开花

有个文本
1.error abc warn abc
2.error warn abc
3.error abc
4.warn abc

想问怎样把 error和warn并到一行，主要问题是有了error和warn的行不可以把下面的行并上来
1.error abc warn abc
2.error warn abc
3.error abc4.warn abc

谢谢！

chenhao392

直接用几个if不行么？为什么一定要正则？

树上开花

想学习perl的正则，然后也确实遇到这样的问题。

主要想在一行上面没有warn得情况下把\n替换成空格。
$str=~ s/(error.[^(warn)]*)\n(.*error)/\1 \2/;