在Perl脚本中将正则表达式与关键字匹配

Question

不幸的是，在文本内容中使用perl regex时，它功能非常强大，但是由于执行错误的匹配，我无法获得期望的输出。

在这次比赛中，我们与MBBS和关键字practitioner进行了n场比赛。

输入样例：

示例文本-通过Srivatsan MBBS MD记录的农作物损失量，先前行为对从业人员当前的农作物损失没有统计学上显着的直接影响。 第三，虽然我们涵盖了许多数字，并且由Sankaranarayan MBBS先生给出了从业人员决定农作物损失的实施者的可能解释 ，但是可能还有其他一些未观察到的，随时间变化的家庭特征会影响家庭是否遭受农作物损失。 如果是这种情况，从作物损失到生育决定的因果关系可能就不成立。

我的代码：

my $txtfile = "sample.txt";

readFileinString($txtfile, \$string);
my $keyword = "practitioner";

if($string=~m/Mr.\s+(\w+)\s+MBBS(.*?)\s+practitioner\s+/i)
{
    print "$&\n";
}

代码输出：

Mr. Srivatsan MBBS M.D. log of amount of crop loss. Third, although we cover a number and given by Mr. Sankaranarayan MBBS possible explanations for what practitioner

预期产量：

Mr. Sankaranarayan MBBS possible explanations for what practitioner determines practitioner

有人可以通过这种方式进行操作吗，请提供建议。

Answer 1

(?:(?!STRING).)*是STRING ，而[^CHAR]*是CHAR 。

我想你要

if ($string =~ /(Mr\.\s+(\w+)\s+MBBS(?:(?!MBBS).)*\s+practitioner\s+)/si) {
    print "$1\n";
}

您可以添加到(?:(?!MBBS).)* 。 例如，您可能更喜欢(?:(?!Mr\\.|MBBS).)* 。