正则表达式匹配问题

cablink

字符串如： a=b,c=d,e=f,想要得到 b d f这些值，正则表达式怎么写？
谢谢

兰花仙子

# perl -le '$x="a=b,c=d,e=f";my @x=$x=~/=(\w+)/g;print "@x"'
b d f

hu145165

/=([^,]+)/;
print $1;

Perl_Er

$_ = 'a=b,c=d,e=f';

my @ary = /=(\w*)/g;

ulmer

Hi,

i.e.:
1.  one line:
C:\>perl -MData::Dumper -e "$s='a=b,c=d,e=f'; %rec=map{($k,$v)=split(
/=/);$k,$v}(split/,/,$s);print Dumper \%rec;"

2. more in detail:

1. 
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my $str = 'a=b,c=d,e=f';
   
6. 
   
7. # Using split()+map() to put key=value in a hash
   
8. my %data = map {
   
9.     # processing $_ with key=value:
   
10.     my ($k, $v) = split(/=/);
    
11.    # put $k and $v into hash
    
12.     $k => $v
    
13. } (split /,/, $str);
    
14. 
    
15. # check result:
    
16. print Dumper \%data;
    

复制代码

Dump result:

1. 
   
2. $VAR1 = {
   
3.           'e' => 'f',
   
4.           'c' => 'd',
   
5.           'a' => 'b'
   
6.         };
   

复制代码

just 4 fun!