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

你的正则表达式匹配到行上的最后一个 ")".你需要指定一个非贪婪的匹配:

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

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

或者,更好的是,指定不能匹配")":

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