如何在Perl中匹配這個字符串'afa'而不是'bebeeeb'？

Question

$s1='afa'; 
$s2='bebeeeb'; 

$s1=~/((\w)(?!\2))+\2?/; 

這個正則表達式匹配兩個字符串。 我只想匹配第一個字符串。 （第一個字符後跟任意字符，但不是第一個字符所拍攝的兩個字符可以重複任意次數。）

Answer 1

你可以試試這個：

^(?:(\w)(?!\1))+$ 

Demo

Answer 2

更容易檢查相反的。

# Doesn't contain repeated word characters. 
$s !~ /(\w)\1/ 

否則，您必須在每個位置檢查。 （你是在任何位置檢查）

# Every character is a non-word character or a non-repeated word character 
$s =~ /^(?:\W|(\w)(?!\1))*\z/ 

如果輸入只能包含單詞字符，上述簡化爲

# Every character is a non-repeated word character 
$s =~ /^(?:(\w)(?!\1))*\z/ 

甚至

# Every character is a non-repeated character 
$s =~ /^(?:(.)(?!\1))*\z/s