Wyrażenia regularne: znaleźć ciąg bez podciąg

Question

mam duży tekst:

"Big piece of text. This sentence includes 'regexp' word. And this 
sentence doesn't include that word" 

Muszę znaleźć podciąg, który zaczyna się od „tym” i kończy „słowa” ale nie zawierają słowo "regexp".

W tym przypadku napis: „this sentence doesn't include that word” jest dokładnie to, co chcę otrzymywać.

Jak mogę to zrobić za pomocą wyrażeń regularnych?

Answer 1

Z zignorować sprawę opcji, następujące powinny działać:

\bthis\b(?:(?!\bregexp\b).)*?\bword\b 

Przykład: http://www.rubular.com/r/g6tYcOy8IT

Objaśnienie:

\bthis\b   # match the word 'this', \b is for word boundaries 
(?:    # start group, repeated zero or more times, as few as possible 
    (?!\bregexp\b) # fail if 'regexp' can be matched (negative lookahead) 
    .     # match any single character 
)*?    # end group 
\bword\b   # match 'word' 

\b otaczające każde słowo zapewnia, że ​​nie są dopasowane na podciągi, jak dopasowanie do „tego” w „oset”, lub „słowa” w „rozwlekły”.

ten działa poprzez sprawdzenie w każdej postaci między twego słowa początkowego i końcowego swoim słowem, aby upewnić się, że wyłączone słowo nie występuje.

Answer 2

Skorzystaj z asynchronizacji z wyprzedzeniem.

Jeśli chcesz sprawdzić, czy łańcuch nie zawiera innego podciąg, można napisać:

/^(?!.*substring)/ 

Należy sprawdzić również początek i koniec linii dla this i word:

/^this(?!.*substring).*word$/ 

Innym problemem jest to, że nie pracujesz nad szukaniem ciągów, chcesz znaleźć zdania (jeśli dobrze rozumiem twoje zadanie).

więc rozwiązanie wygląda tak:

perl -e ' 
    local $/; 
    $_=<>; 
    while($_ =~ /(.*?[.])/g) { 
    $s=$1; 
    print $s if $s =~ /^this(?!.*substring).*word[.]$/ 
    };' 

Przykład użycia:

$ cat 1.pl 
local $/; 
$_=<>; 
while($_ =~ /(.*?[.])/g) { 
    $s=$1; 
    print $s if $s =~ /^\s*this(?!.*regexp).*word[.]/i; 
}; 

$ cat 1.txt 
This sentence has the "regexp" word. This sentence doesn't have the word. This sentence does have the "regexp" word again. 

$ cat 1.txt | perl 1.pl 
This sentence doesn't have the word.