有取舍的split

snriyt

回復(fù) 16# inchonline


    .vim.tar.gz (2.55 MB, 下載次數(shù): 19)

2013-09-18 14:59 上傳

點(diǎn)擊文件名下載附件

inchonline

謝謝啦！回復(fù) 21# snriyt


   

kk861123

flw 發(fā)表于 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;

復(fù)制代碼

飛越地平線

不錯，挺好的。

104359176

回復(fù) 17# rubyish


    這個問題確實(shí)很復(fù)雜，將一個復(fù)雜的問題拆分成幾個簡單點(diǎn)的問題，就簡單多了。

rubyish

回復(fù) 26# 104359176

大牛，你說得對
這個問題確實(shí)很復(fù)雜，我的直覺 RE 可以,
but 我學(xué)藝不精,
我的老師們:
jason680, kk861123, MCshell, perlvim, yinyuemi, zhiong8
必有簡單的解決方案。.......這個問題我一直在糾結(jié).......
   

grshrd49

回復(fù) 27# rubyish


我其實(shí)最近在寫接口的測試腳本, 全部返回信息是json數(shù)組, 所以就一直在想perl是如何處理json的
雖然我們可以用 use JSON;可以解決 json的問題, 但是我好奇他們是則么處理額...

kk861123

回復(fù) 27# rubyish


    哥們，不要搞的每次都這么糾結(jié)的，搞的俺也挺糾結(jié)的，這是我解析的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. 
    

復(fù)制代碼