有取舍的split

snriyt

回复 16# inchonline


    .vim.tar.gz (2.55 MB, 下载次数: 19)

2013-09-18 14:59 上传

点击文件名下载附件

inchonline

谢谢啦！回复 21# snriyt


   

kk861123

flw 发表于 2013-09-15 12:45
给你们介绍个好玩的

我喜欢这个模块~谢谢

ifelix

仅针对该题，我的想法如下：

1. my $s = 'a,b,c,d,e,[e1,e2,[e21,e22,e33],e3],f';
   
2. 
   
3. my $s =~ /^(.+?)(\[.+\]),(.+)/; #非贪婪模式匹配第一个[，贪婪模式匹配最后一个]
   
4. 
   
5. my @a = split /,/, $1;
   
6. push @a, $2;
   
7. push @a, split /,/, $3;

复制代码

飞越地平线

不错，挺好的。

104359176

回复 17# rubyish


    这个问题确实很复杂，将一个复杂的问题拆分成几个简单点的问题，就简单多了。

rubyish

回复 26# 104359176

大牛，你说得对
这个问题确实很复杂，我的直觉 RE 可以,
but 我学艺不精,
我的老师们:
jason680, kk861123, MCshell, perlvim, yinyuemi, zhiong8
必有简单的解决方案。.......这个问题我一直在纠结.......
   

grshrd49

回复 27# rubyish


我其实最近在写接口的测试脚本, 全部返回信息是json数组, 所以就一直在想perl是如何处理json的
虽然我们可以用 use JSON;可以解决 json的问题, 但是我好奇他们是则么处理额...

kk861123

回复 27# rubyish


    哥们，不要搞的每次都这么纠结的，搞的俺也挺纠结的，这是我解析的code

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my $str = q{a,b,c,d,e,[e1,e2,[e21,e22,e33],e3],f};
   
6. 
   
7. my @stacks = ([]);
   
8. my $stack  = $stacks[-1];
   
9. foreach my $field ( split /,/ => $str ) {
   
10.     if ( $field =~ m/\[(.*)/) {
    
11.         push @stacks, [$1];
    
12.         $stack = $stacks[-1];
    
13.     }
    
14.     elsif ($field =~ /(.*)\]/) {
    
15.         my $last_stack = pop @stacks;
    
16.         push @$last_stack, $1;
    
17.         $stack = $stacks[-1];
    
18.         push @$stack, $last_stack;
    
19.     }
    
20.     else {
    
21.         push @$stack, $field;
    
22.     }
    
23. }
    
24. 
    
25. print Dumper $stacks[0];
    
26. 
    

复制代码