使用 Perl 匹配句子中的单词？

Question

我想在 Perl 中提取两个单词之间的单词，但我不知道我可以使用正则表达式或任何库来做到这一点吗？

例如：

$sen = "A short quick brown fox jumps over the lazy dog running in the market";

@sentence = split / /, $sen;
foreach my $word (@sentence) {

}        

我想获取 brown 和 lazy 之间的单词以及左侧 2 个单词和右侧 2 个单词。

output:

words between: fox jumps over the
2 words from left: short quick
2 words from right: dog running

我怎样才能得到上面的输出？

Answer 1

这是作业吗？如果是这样，那么您应该在问题中这么说，您得到的答案将旨在帮助您学习，而不是简单地提供解决方案。

您正在声明一个数组，其中一个元素包含整个句子字符串，包括开始和结束双引号。这不可能是你想要的，因为你的循环只会执行一次，并将 $word 设置为句子字符串。

您必须启动每个 Perl 程序以

use strict;
use warnings;

使调试更容易。

下面的代码执行您所描述的操作。

use strict;
use warnings;

my $sentence = "A short quick brown fox jumps over the lazy dog running in the market";
my @sentence = split ' ', $sentence;

my @sample = grep /fox/ .. /the/, @sentence;
print "words between: @sample\n";

@sample = @sentence[-2..-1];
print "2 words from right: @sample\n";

@sample = @sentence[0..1];
print "2 words from right: @sample\n";

输出

words between: fox jumps over the
2 words from right: the market
2 words from right: A short