嵌套引用字符串如何用perl解析

changsha

例如字符串: "name=Mike,groups=staff,roles=""admin,test,dba"",description=null"
如何用perl解析成
        name=Mike
        groups=staff
        roles=admin,test,dba
        description=null

changsha

或者用ksh/sed可以实现吗？

changsha

无法实现？还是没人知道？

kk861123

实现了但有点复杂，等高人

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $str = 'name=Mike,groups=staff,roles=""admin,test,dba"",description=null';
   
6. my @list = split(/=/,$str);               
   
7. my $first_key  = shift @list;        # the first key
   
8. my $last_value = pop @list;# the last value
   
9. for my $line (@list) {
   
10.         my ($value,$next_key) = $line =~ /"{0,2}([\w,]*)"{0,2},(\w+)$/;
    
11.         print "$first_key = $value\n";
    
12.         $first_key = $next_key;
    
13. }
    
14.         print "$first_key = $last_value\n";

复制代码

kk861123

又研究了点正则，但不能打印出最后一个，请高人帮忙指点下正则方面，声明以下代码false{:3_183:}

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $str = 'name=Mike,groups=staff,roles=""admin,test,dba"",description=null';
   
6. while ($str =~ /(\w+)=(\"{0,2})([\w,]+)\2(?=,)/g) {
   
7.         print "$1=$3\n";
   
8. }

复制代码

changsha

kk861123 发表于 2011-12-27 00:58
又研究了点正则，但不能打印出最后一个，请高人帮忙指点下正则方面，声明以下代码false

试出来了, 这样可以: $str =~ /(\w+)=(\"{0,2})([\w,]+)\2(?=,|$)/g

kk861123

回复 6# changsha


    3Q~对的!{:3_189:}

羲之遗韵

没看懂，双引号里面还能用双引号？这样字符串不就断开了么？

yinyuemi

回复 1# changsha

1. perl -le '$s="name=Mike,groups=staff,roles=\"\"admin,test,dba\"\",description=null"
   
2. ;print "$1=$3"  while($s=~/([^=]+)=("*)?([^"=]+)("*)?(,|$)/g)'
   
3. name=Mike
   
4. groups=staff
   
5. roles=admin,test,dba
   
6. description=null
   

复制代码

3P主义

yinyuemi 发表于 2011-12-27 10:30
回复 1# changsha

("*)? 用得不好。