regex - 搜索带有任何重复字符的单词

Question

寻找 perl one-liner what 将找到具有下一个模式的所有单词:

X(not_X_chrs)X(not_X_chrs)X    e.g. cyclic

对于一个字符，这很容易，例如为一个'

perl -nle 'print if /^a[^a]+a[^a]+a$/' < /usr/share/dict/web2

但我想搜索 任何 字符，因此，寻找一个正则表达式来查找 全部 这样的词:

azalea   #repeating a
baobab   #repeating b
cyclic   #c

等等..

试过这个:

perl -nle 'print if m/^([a-z])[^$1]+$1[^$1]+$1$/i' </usr/share/dict/web2

但不起作用。

Answer 1

(?:(?!STRING).)

是

(?:STRING)

作为

[^CHAR]

是

CHAR

所以你可以使用

/
   ^
   (\pL)
   (?:
      (?:(?!\1).)+
      \1
   ){2}
   \z
/sx