Регулярное выражение для захвата слов между определенным словом

Question

Я пытаюсь получить регулярное выражение, которое соответствует: (не должно совпадать ни с одной другой строкой)

Word1 or Word2 or Word3 or Wordn

Захват слов до или после "или"

1: Word1
2: Word2
3: Word3
n: Wordn

Я пытался изменить регулярное выражение CSV:

(?:^|,)(\"(?:[^\"]+|\"\")*\"|[^,]*)

до

(?:^|(?:or)((?:[^(?:or)]+)*|[^(?:or)]*)

Но это не дает мне того, чего я хочу.

Я уверен, что что-то упустил, но я бился головой много часов.

Answer 1

Как насчет:

my $string = "  foo or    bar or  foobar ";
if ( $string =~ m|^\s*[^\s]+(\s+or\s+[^\s]+)+\s*$| ) {
    my $tmp = "$string";
    $tmp =~ s|^\s+||;
    $tmp =~ s|\s+$||;
    my @words = split( /\s+or\s+/, $tmp );
    printf( "Found %d words:\n", scalar( @words ) );
    foreach my $word ( @words ) {
        print( "\t'$word'\n" );
    }
} else {
    print( "No match\n" );
}

Выше будет выводиться:

Found 3 words:
    'foo'
    'bar'
    'foobar'

Answer 2

Вы знаете, это не то, к чему я бы, естественно, обратился за регулярным выражением.Я бы сначала попробовал разделить.

my @words = split / or /, $string;

Answer 3

Попробуйте разбить строку на ' or '.

Answer 4

Реальное решение - разделить на ' or '. Решение регулярных выражений не так просто.

$sm =~ / or / and @between_or = $sm =~ /(?:^\s*|(?<= or ))(.+?)(?= or |\s*$)/sg;

Answer 5

Это регулярное выражение будет соответствовать любой строке, которая имеет по крайней мере word1 or word2, и любому числу больше или после этого.У него также не должно быть пробелов в начале или конце строки, но вы можете удалить ^ и $, если хотите найти строку этой формы в пределах строки большего размера

(?:^(\w+)(?=\s+or))|(?:\s+or\s+(\w+))+

RegexPal