Может ли оператор подстановки Perl сопоставить элемент в массиве?

У меня есть такой массив

my @stopWords = ("and","this",....)

Мой текст находится в этой переменной

my $wholeText = "....and so this is...."

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

Один из способов сделать это следующий:

foreach my $stopW (@stopWords)
{
   $wholeText =~ s/$stopW/ /;
}

Это работает и заменяет все появление всех стоп-слов. Мне просто интересно, есть ли более короткий способ сделать это.

Примерно так:

$wholeText =~ s/@stopWords/ /;

Все это, похоже, не работает.

8
задан tchrist 3 August 2013 в 17:10
поделиться