如何从单个正则表达式的字符串中删除重复字符的单词?

时间:2011-11-10 20:13:09

标签: regex perl

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

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

这可以使用单个正则表达式完成,而不是/e吗?

1 个答案:

答案 0 :(得分:5)

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

看起来很奇怪,但无论如何都有效。