寻找 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
但不起作用。
最佳答案
(?:(?!STRING).)
是
(?:STRING)
作为
[^CHAR]
是
CHAR
所以你可以使用
/
^
(\pL)
(?:
(?:(?!\1).)+
\1
){2}
\z
/sx
关于regex - 搜索带有任何重复字符的单词,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11042730/