regex - Perl正则表达式删除字符串中重复的连续子字符串

Question

我试图对这个特定问题进行搜索，但我得到的只是删除重复的行或删除由分隔符分隔的重复字符串。

我的问题略有不同。我有一个字符串，例如

    "comp name1 comp name2 comp name2 comp name3" 

我想删除重复的 comp name2 并仅返回

    "comp name1 comp name2 comp name3" 

它们不是连续的重复词，而是连续的重复子串。有没有办法使用正则表达式解决这个问题？

Answer 1

s/(.*)\1/$1/g

请注意，此正则表达式的运行时间是字符串长度的二次方。