有取舍的split

grshrd49

$s = 'a,b,c,d,e,[e1,e2,[e21,e22,e33],e3],f';

你們看這段字符串
我想要分解這段字符串
split /,/,$s;
很容易就完成了
但是我在第一次split的時候 不想拆分[]中的字符串 我該則么處理呢?
[]還會嵌套
誰能給點好的思路

rubyish

這個問題我糾結了一晚，
我的:

1. my $s = 'a,b,c,d,e,[e1,e2,[e21,e22,e33],e3],f';
   
2. my ( $F, @s );
   
3. for ( split /,/, $s ) {
   
4.     $F ? $s[-1] .= ",$_" : push @s, $_;
   
5.     /^\[/ ? $F++ : /\]$/ ? $F-- : undef;
   
6. }
   
7. say for @s;

復制代碼

grshrd49

回復 2# rubyish

寫的秒! for里的第二行 三目中的三目 有點搞腦子!
今天加班有點晚了, 明天我清醒了 要好好研究下你的腳本

我是設想用遞歸的形式來層層分離括號中的數(shù)據(jù), 但是perl在處理字符串的時候不像在處理數(shù)組那樣, 所以我對這個問題就一直卡在這里

snriyt

奇怪。。。

104359176

這個問題有點復雜，但可以拆成幾個相對簡單的問題

1. 將 [..]的結構中的逗號替換成別的符號。
2. 將嵌套的結構都替換掉
3. 按照逗號拆分。
4. 將拆分后的內(nèi)容中的逗號恢復

flw

給你們介紹個好玩的

1. flw@waker:~$ ./ttt.pl 'a,b,c,d,e,[e1,e2,[e21,e22,e33],e3],f'
   
2. 
   
3. ### $result: [
   
4. ###            'a',
   
5. ###            'b',
   
6. ###            'c',
   
7. ###            'd',
   
8. ###            'e',
   
9. ###            [
   
10. ###              'e1',
    
11. ###              'e2',
    
12. ###              [
    
13. ###                'e21',
    
14. ###                'e22',
    
15. ###                'e33'
    
16. ###              ],
    
17. ###              'e3'
    
18. ###            ],
    
19. ###            'f'
    
20. ###          ]
    
21. flw@waker:~$ cat ttt.pl
    
22. #!/usr/bin/perl
    
23. 
    
24. use strict;
    
25. use warnings;
    
26. use Smart::Comments;
    
27. 
    
28. use Parse::RecDescent;
    
29. 
    
30. my $parser = new Parse::RecDescent(
    
31. <<'EOD'
    
32.     chars: /[^,\[\]]+/
    
33.     unit: chars | in_bracket
    
34.     in_bracket: '[' unit_list ']'       { $return = $item[2] }
    
35.     unit_list: unit ',' unit_list       { $return = [ $item[1], @{ $item[3] } ] }
    
36.         | unit                          { $return = [ $item[1] ] }
    
37.     text: unit_list eos                 { $return = $item[1] }
    
38.     eos: /\Z/
    
39. EOD
    
40. ) or die "compile";
    
41. 
    
42. my $s = shift;
    
43. my $result = $parser->text( $s ) or die "Bad text!\n";
    
44. ### $result
    
45. flw@waker:~$

復制代碼

stanley_tam

回復 1# grshrd49

1. my $s = 'a,b,c,d,e,[e1,e2,[e21,e22,e33],e3],f';
   
2. my @parts = ();
   
3. push @parts, split /,(?! .* \] )/x, $_  for split m{(:? \[ .* \])}x, $s;

復制代碼

只有一個[[]]元素的情況下勉強可以。。{:3_196:}

grshrd49

回復 7# stanley_tam


其實我最近在看json數(shù)組, 哈哈! 所以就想到了這個問題

grshrd49

回復 5# 104359176


    我有想過這個辦法! 但是這個用這個中間方法要是能解決問題 ,其實就可以從根本解決我這個問題. 你說是嗎?!?!?!? 哈哈
問題就在于, 很難從嵌套的括號中替換字符串

grshrd49

回復 6# flw


這段代碼則么解釋呢?
use Smart::Comments;
use Parse::RecDescent;
這兩個包起什么作用阿?!