搜索具有任何重复字符的单词

Question

寻找perl one-liner什么会找到下一个模式的所有单词:

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

对于一个角色,它很容易,例如'a'

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