有取舍的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里的第二行 三目中的三目 有点搞脑子!
今天加班有点晚了, 明天我清醒了 要好好研究下你的脚本

我是设想用递归的形式来层层分离括号中的数据, 但是perl在处理字符串的时候不像在处理数组那样, 所以我对这个问题就一直卡在这里

snriyt

奇怪。。。

104359176

这个问题有点复杂，但可以拆成几个相对简单的问题

1. 将 [..]的结构中的逗号替换成别的符号。
2. 将嵌套的结构都替换掉
3. 按照逗号拆分。
4. 将拆分后的内容中的逗号恢复

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数组, 哈哈! 所以就想到了这个问题

grshrd49

回复 5# 104359176


    我有想过这个办法! 但是这个用这个中间方法要是能解决问题 ,其实就可以从根本解决我这个问题. 你说是吗?!?!?!? 哈哈
问题就在于, 很难从嵌套的括号中替换字符串

grshrd49

回复 6# flw


这段代码则么解释呢?
use Smart::Comments;
use Parse::RecDescent;
这两个包起什么作用阿?!