perl 正则表达式匹配的问题

yins

my $data = "Barney Rubble Fred Flintstone Wilma Flintstone";
my %last_name = ($data =~ /(\w+)\s+(\w+)/g);
foreach (sort keys %last_name){
        printf "%s\t%s\n",$_,$last_name{$_};
}
#Output:
#Barney        Rubble
#Fred        Flintstone
#Wilma        Flintstone

为什么不是
Barney        Rubble
Rubble Fred
Fred Flintstone
Flintstone Wilma
Wilma Flintstone
哪位能解释一下么？给个连接，或相关文档也可以。


另外，用hash table 可以保存2个(\w+)的值；如果现在换成   $data =~ /(\w+)\s+(\w+)\s(\w+)/g的话，怎么把所有合适的匹配保存下来？
我希望能输出
Barney Rubble Fred
Flintstone Wilma Flintstone

===================
/(\w+)\s+(\w+)/g  # 任何两个相邻 word，中间用 space隔开
每次匹配，保存了2个单元的值，所以可以用hash table直接保存


/(\w+)\s+(\w+)\s(\w+)/g ＃ 任何三个相邻 word，中间用 space隔开
每次匹配，保存了3个单元的值 $1,$2,$3；我希望能够输出所以匹配的3个单元，比如
Barney Rubble Fred
Flintstone Wilma Flintstone

如果可以的话，希望能够给一下demo代码
谢谢

climby

my $data = "Barney Rubble Fred Flintstone Wilma Flintstone"; my %last_name = ($data =~ /(\w+)\s+(\w+)/g); foreach (sort keys %last_name){         printf "%s\t%s\n",$_,$last_name{$_}; } #Output: #Barney        Rubble #Fred        Flintstone #Wilma        Flintstone

对于以上代码的输出 为什么不是你所期望的：

1. Barney        Rubble
   
2. Rubble Fred
   
3. Fred Flintstone
   
4. Flintstone Wilma
   
5. Wilma Flintstone

复制代码

原因：
   perl 在匹配是遵循了对被匹配内容只使用一次的原则，例如  ‘Rubble’ 这个字串已经在第一次匹配当中使用了，那么后续的匹配就从这个字串之后开始，不会再重复使用该字串了。

对于第二个问题，你知道hash可以保存2个(\w+),那你应该知道array 可以保存很多(\w+)的，按照如下方法就可以

1. my @result =$data =~ /(\w+)\s+(\w+)\s(\w+)/g

复制代码

wfnh

楼主是从ubuntu论坛过来的！？

yins

感谢楼上的解答
perl新手，以为perl有多维数组的概念

是的，ubuntu那问了，第一问没人解答；第二问就说了数组