求解关于perl正则表达式多个变量捕获的问题

ouyangting_2000

手头有文本如下：
<dependency org="org.springframework" name="spring" rev="2.5.4" conf="zip->default" />
现用perl想把冒号之间的信息给取出来传入参数
if( /(\=\"[^\"]+\")/g){
        ($jar_root, $jar_name, $jar_ver, $jar_type) = ($1, $2, $3, $4);
}

验证下来只能得到第一个变量，后面的三个都匹配不到，求解这是为啥？

兰花仙子

ouyangting_2000 发表于 2012-05-30 10:18
手头有文本如下：

现用perl想把冒号之间的信息给取出来传入参数

$ perl -le '$x=qq(<dependency org="org.springframework" name="spring" rev="2.5.4" conf="zip->default" />);
> @matched = $x =~ /\"(.*?)\"/g; print "@matched"'

org.springframework spring 2.5.4 zip->default

kk861123

回复 1# ouyangting_2000

1. my ($jar_root, $jar_name, $jar_ver, $jar_type) = ($_ =~ m|\=\"([^\"]+?)\"|g);

复制代码

x9x9

1. 
   
2. $_='<dependency org="org.springframework" name="spring" rev="2.5.4" conf="zip->default" />';
   
3. while( /=("[^"]+?")/g){
   
4. print $1,"\n";
   
5. }

复制代码

zhlong8

scalar context 下只匹配一次的

($jar_root, $jar_name, $jar_ver, $jar_type) = ($str =~ /="([^"]+)"/g);

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. while (<DATA>) {
   
7.     my ($jar_root, $jar_name, $jar_ver, $jar_type) = /=\"([^\"]+)/g;
   
8.     print "$jar_root $jar_name $jar_ver $jar_type\n";
   
9. }
   
10. 
    
11. __DATA__
    
12. <dependency org="org.springframework" name="spring" rev="2.5.4" conf="zip->default" />

复制代码

ouyangting_2000

zhlong8 发表于 2012-05-30 10:38
scalar context 下只匹配一次的

($jar_root, $jar_name, $jar_ver, $jar_type) = ($str =~ /="([^"]+)"/ ...

意思是if匹配到第一个冒号里的内容就返回真，然后后面跳出循环了？

zhlong8

ouyangting_2000 发表于 2012-05-30 11:22
意思是if匹配到第一个冒号里的内容就返回真，然后后面跳出循环了？

/g 就好像 generator 一样，如果在 list context 下就是一直匹配到无法匹配，在 scalar context 下则会在字符串里保存下状态，下次从这个位置接着往下匹配。

masylichu

1. my $string=qq(<dependency org="org.springframework" name="spring" rev="2.5.4" conf="zip->default" />);
   
2. my @matched= ( $string =~ /\"([^\"]+?)\"/g);
   
3. print "@matched";

复制代码

ouyangting_2000

zhlong8 发表于 2012-05-30 11:25
/g 就好像 generator 一样，如果在 list context 下就是一直匹配到无法匹配，在 scalar context 下则会 ...

再问个问题
信息如下：
<dependencies>
                <dependency org="com.99bill" name="steel" rev="4.1.6" conf="zip->default" />       
                <dependency org="xalan" name="xalan" rev="1.0" conf="zip->default" />       
                <dependency org="javax.persistence" name="persistence-api" rev="1.0" conf="zip->default" />
                <dependency org="asm" name="asm" rev="1.5.3" conf="zip->default" />
                <dependency org="org.springframework" name="spring" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-tx" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-beans" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-context" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-core" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-aop" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-web" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-webmvc" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-context-support" rev="2.5.4" conf="zip->default" />
                <dependency org="org.springframework" name="spring-test" rev="2.5.4" conf="zip->default" />
</dependencies>
我用这段语句
if( /<dependencies>/../<\/dependencies>/ )
{
  print FD_OUT $_;
}
想把标签内的内容截取出来，有啥办法能在匹配的时候去掉<dependencies>这两个标签么？