Perl第一对匹配？

Question

我有数据这样的：

a{b}cde 
a{b}c{d}e 

我要洒串分为三个部分：

1. 串第一{}对
2. 在第一{}对字符串之前
3. 休息

这里是我的代码：

（。*？）

if(/(.*){(.*)}(.*)/){ 
    print "$1\t$2\t$3\n"; # ===> a{b}c d  e 
} 

但它不工作了a{b}c{d}e

我想a b c{d}e，而不是a{b}c d e

Answer 1

制作*非贪婪会做的伎俩：

#!/usr/bin/perl 
use strict; 
use warnings; 

while (my $line = <DATA>) { 
    if($line =~ m/(.*?){(.*?)}(.*)/){ 
    print "$1\t$2\t$3\n"; 
    } 
} 

__DATA__ 
a{b}cde 
a{b}c{d}e 

Answer 2

虽然在这种情况下非贪婪的匹配工作，我会主张使用否定字符类。这更明确地指出，您需要一系列非}字符，而不是任何字符的最短可能序列，然后是}。

#!/usr/bin/env perl  

use strict; 
use warnings; 
use 5.010; 

while (<DATA>) { 
    say "$1\t$2\t$3" if /^([^{]*){([^}]*)}(.*)/; 
} 

__DATA__ 
a{b}cde 
a{b}c{d}e