Perl正则表达式在某些但不是所有记录上都缺少尾随括号？

Question

my @info = `net view printserver2`;
foreach my $printer (@info)
{
$printer =~ /.+\s+Print\s+\((.+)\)/;
print "$1\n";

给了我：

16-83
16-84) HP DesignJet 755CM(C3198A
16-84b
16-85
16-SW
17-80
18-45) HP DesignJet 250C (D/A1
18-51) HP DesignJet 650C(C2859B

这是原作：

(16-83) HP Designjet 800 42 by HP                              
(16-84) HP DesignJet 755CM(C3198A)by HP                        
(16-84b) HP LaserJet 5100 Series PCL6                          
(16-85) HP Designjet T1100ps 44in HPGL2                        
(16-SW) HP LaserJet 4100 Series PCL6                           
(17-80) HP Color LaserJet 5500 PCL 6                           
(18-45) HP DesignJet 250C (D/A1) by HP                         
(18-51) HP DesignJet 650C(C2859B) by HP                        

我的正则表达式出了什么问题？

这是我想要的结果：

16-83
16-84
16-84b
16-85
16-SW
17-80
18-45
18-51

Answer 1

你的正则表达式与行上的 last “）”匹配。您需要指定一个非贪婪的匹配：

$printer =~ /.+\s+Print\s+\((.+?)\)/;

。+之后的问号意味着在第一次机会停止。

或者，更好的是，指定不能匹配“）”：

$printer =~ /.+\s+Print\s+\(([^)]+)\)/;