Соответствие простому ключевому слову и ключевому слову с пробелами

Question

В настоящее время я работаю над функцией, которая принимает в качестве аргументов список ключевых слов и строку (строку looong), и я хочу, чтобы она возвращала список каждого сопоставленного ключевого слова. Проблема в том, что ключевое слово может быть в 2 слова. Для Exemple - keyword1 : foobar, keyword2 : foo bar, keyword3 : barfoo)

строка:

hi this is foobar, have you seen my foo bar, he is very fooBar ? 

я хочу список с (foobar, foo bar);

На данный момент я получил:

@matches = $string =~ m/\b(?:foobar|foo bar)\b/gi ; 

Это прекрасно работает для простых слов, но не в составе слова:/

любая идея?

Благодарим за помощь.

Answer 1

Это возвращает правильные результаты:

sub match { 
    my @keywords=@_; 
    my $s=pop @keywords; 
    return grep {$s=~/\b\Q$_\E\b/i} @keywords; 
} 

my @matches=match('foobar','foo bar','barfoo)','hi this is foobar, have you seen my foo bar, he is very fooBar?'); #this returns (foobar, foo bar) 

BTW ваш код @matches = $string =~ m/\b(?:foobar|foo bar)\b/gi; работает слишком большим, если вы удалите /i модификатор он возвращает (Foobar, Foo бар)

Answer 2

sub myfunc { 
    my ($str, @kw) = @_; 

    my ($re) = map qr/\b ($_) \b/x, join "|", @kw; 

    return $str =~ /$re/gi; 
} 

my @kwords = ("foobar", "foo bar", "barfoo"); 
my @arr = myfunc("hi this is foobar, have you seen my foo bar, he is very fooBar ?", @kwords);