我有这样的数组
my @stopWords = ("and","this",....)
我的文字在这个变量中
my $wholeText = "....and so this is...."
我想匹配标量wholeText中我的stopWords数组的每个元素的每个出现,并用空格替换它.
一种方法如下:
foreach my $stopW (@stopWords) { $wholeText =~ s/$stopW/ /; }
这可以工作并替换所有停用词的每次出现.我只是想知道,如果有更短的方法.
像这样:
$wholeText =~ s/@stopWords/ /;
以上似乎并不奏效.
解决方法
grep{$wholeText =~ s/\b$_\b/ /g}@stopWords;