正則表達式查找一個單詞但不是另一個

Question

如何檢測一個字符串是否包含例如我的名字，但不包含僅使用正則表達式的姓氏？

Answer 1

爲此使用正則表達式的最簡單方法是使用簡單的正則表達式和邏輯連接詞。既然你只想要簡單的比賽，因爲你沒有列出的語言，這裏是Perl中的一個基本的實現：

my $str1="firstname lastname blah blah blah"; 
my $str2="blurg firstname etc"; 

foreach($str1,$str2) 
{ 
    if(/firstname/ and !/lastname/) 
    { 
    print "$_ matched firstname and not lastname!\n"; 
    } 
    else 
    { 
    print "No match for $_\n"; 
    } 
} 

正如預期的那樣，輸出爲：

No match for firstname lastname blah blah blah 
blurg firstname etc matched firstname and not lastname! 

Answer 2

^(?=.*firstname)(?=.*lastname) 

與許多正則表達式版本，你可以做這樣的事情。我使用零寬度向前搜索您的名字和姓氏。它們不會「移動」正則表達式遊標，因此兩者都從第一個字符開始掃描。如果名字或姓氏不存在，則正則表達式將失敗。

嚴重的是，正則表達式應該是比較複雜的，否則你可能有下列情形：

firstname = `name` 
lastname = `lastname` 

lastname // ok with the given rules 

與

firstname = `firstname` 
lastname = `lastname` 

firstnamelastname // ok with the given rules, even without the space 
xfirstnamex xlastnamex // ok with the given rules 

正則表達式將需要：

^(.*\bfirstname\b.*\blastname\b)|(.*\blastname\b.*\bfirstname\b) 

因此檢查名字和姓氏的兩個命令，並檢查之前是否有詞分隔符並在名字和姓氏之後。

我會補充一點，我已經展示的東西不是做完美的例子。你想用戶正則表達式？你不要！首先，您嘗試使用您的語言的字符串函數。那麼，如果他們失敗了，你可以嘗試使用正則表達式。

Answer 3

如何：

#!/usr/bin/perl 
use Modern::Perl; 

while (<DATA>) { 
    chomp; 
    say /^(?=.*\bfirstname\b)(?!.*\blastname\b)/ ? "OK : $_" : "KO : $_"; 
} 

__DATA__ 
jhjg firstname jkhkjh lastname kljh 
jhgj lastname kjhjk firstname kjhkjh 
jhgdf firstname sjhdfg not_my_lastname 
jshgdf no_my_lastname jhg firstname jkhghg 

輸出：

KO : jhjg firstname jkhkjh lastname kljh 
KO : jhgj lastname kjhjk firstname kjhkjh 
OK : jhgdf firstname sjhdfg not_my_lastname 
OK : jshgdf no_my_lastname jhg firstname jkhghg