Отрицательное регулярное выражение для сопоставления с образцом строки Perl

Question

У меня есть это регулярное выражение:

if($string =~ m/^(Clinton|[^Bush]|Reagan)/i)
  {print "$string\n"};

Я хочу сравниться с Клинтоном и Рейганом, но не с Бушем.

Это не работает.

Answer 1

Ваше регулярное выражение не работает, потому что [] определяет класс символов, но вы хотите заглянуть вперед:

(?=) - Positive look ahead assertion foo(?=bar) matches foo when followed by bar
(?!) - Negative look ahead assertion foo(?!bar) matches foo when not followed by bar
(?<=) - Positive look behind assertion (?<=foo)bar matches bar when preceded by foo
(?<!) - Negative look behind assertion (?<!foo)bar matches bar when NOT preceded by foo
(?>) - Once-only subpatterns (?>\d+)bar Performance enhancing when bar not present
(?(x)) - Conditional subpatterns
(?(3)foo|fu)bar - Matches foo if 3rd subpattern has matched, fu if not
(?#) - Comment (?# Pattern does x y or z)

Так что попробуйте: (?! Bush)

Answer 2

Образец текста:

Клинтон сказал
Буш использовал мелки
Рейган забыл

Просто пропустил совпадение Буша:

$ perl -ne 'print if /^(Clinton|Reagan)/' textfile
Clinton said
Reagan forgot

Или, если вы действительно хотите указать:

$ perl -ne 'print if /^(?!Bush)(Clinton|Reagan)/' textfile
Clinton said
Reagan forgot

Answer 3

Ваше регулярное выражение говорит следующее:

/^         - if the line starts with
(          - start a capture group
Clinton|   - "Clinton" 
|          - or
[^Bush]    - Any single character except "B", "u", "s" or "h"
|          - or
Reagan)   - "Reagan". End capture group.
/i         - Make matches case-insensitive 

Итак, другими словами, ваша средняя часть регулярного выражения сводит вас с ума.Поскольку это группа типа «ловить все», она разрешает любую строку, которая не начинается ни с одной из прописных или строчных букв в «кусте».Например, эти строки будут соответствовать вашему регулярному выражению:

Our president, George Bush
In the news today, pigs can fly
012-3123 33

Вы либо делаете отрицательный прогноз, как предлагалось ранее, либо просто делаете два регулярных выражения:

if( ($string =~ m/^(Clinton|Reagan)/i) and
    ($string !~ m/^Bush/i) ) {
   print "$string\n";
}

Как mirod указал в комментариях, вторая проверка совершенно не нужна при использовании каретки (^) для сопоставления только с началом строк, поскольку строки, начинающиеся с «Клинтона» или «Рейгана», никогда не могут начинатьсяс "Бушем".

Однако это было бы справедливо без карет.

Answer 4

Что не так с использованием двух регулярных выражений (или трех)?Это делает ваши намерения более ясными и может даже улучшить вашу производительность:

if ($string =~ /^(Clinton|Reagan)/i && $string !~ /Bush/i) { ... }

if (($string =~ /^Clinton/i || $string =~ /^Reagan/i)
        && $string !~ /Bush/i) {
    print "$string\n"
}

Answer 5

Если мое понимание верно, то вы хотите сопоставить любую строку, в которой есть Клинтон и Рейган, в любом порядке, но не Буш. Как предложил Stuck, вот версия с прогнозными утверждениями:

#!/usr/bin/perl

use strict;
use warnings;

my $regex = qr/
    (?=.*clinton)  
    (?!.*bush) 
    .*reagan       
    /ix;

while (<DATA>) {
    chomp;
    next unless (/$regex/);
    print $_, "\n";
}


__DATA__
shouldn't match - reagan came first, then clinton, finally bush
first match - first two: reagan and clinton
second match - first two reverse: clinton and reagan
shouldn't match - last two: clinton and bush
shouldn't match - reverse: bush and clinton
shouldn't match - and then came obama, along comes mary
shouldn't match - to clinton with perl

Результаты

first match - first two: reagan and clinton
second match - first two reverse: clinton and reagan

по желанию соответствует любой строке, в которой Рейган и Клинтон расположены в любом порядке.

Возможно, вы захотите почитать, как работают прогнозные утверждения, с примерами на http://www252.pair.com/comdog/mastering_perl/Chapters/02.advanced_regular_expressions.html

они очень вкусные:)