如何使用单个正则表达式从字符串中删除带有重复字符的单词？

Question

我需要在Perl中从字符串中删除包含重复字符的单词。我可以使用/e标志：

$string =~ s/(\w+)/keys %{{map {$_,1} split '', $1}} == length $1 ? $1 : ""/ge;

能否用一个正则表达式实现这个功能，而不使用/e？

- Eugene Yarmash

---

这个正则表达式可以检测到所有的双字母，将其扩展以包括更多字母，并匹配替换前后的空格。 - Alvin K.

Answer 1

$string =~ s/\b\w*(\w)\w*\1\w*\b//g;

看起来很奇怪，但仍然有效。

- yibe