备用匹配捕捉值

Question

我有一个看起来像这样

MH = Calcimycin 
AQ = AA 
MED = *62 

我想要做的就是捕捉从具有MH和MED，因为它的标题行的值的数据。 什么是单一的正则表达式来实现呢？

我试过，但失败：

my ($mem) = $line =~ /^MH|^MED = (.*?)$/m; 

Answer 1

的改变|具有正则表达式的运营商之间的非常低的优先级。

因此，你需要：

my ($mem) = $line =~ /^(?:MH|MED) = (.*?)$/m; 

More on that.

Answer 2

试试这个：

use strict; 
use warnings; 
use 5.010; 

my $var =<<END 
MH = Calcimycin 
AQ = AA 
MED = *62 
END 
; 

foreach my $line(split(/\n/, $var)){ 
    my ($mem) = $line =~ /^(?:MH|MED) = (.*?)$/m; 
    say "matched $mem" if (defined($mem)); 
}