有取舍的split

104359176

回复 9# grshrd49


    my $times;

    while ($times) {
        $times = $text =~ s/[ ([^\]]+) ]/'<' . replace_comma($1) . '>'/xmsge;
    }

    sub replace_comma {
         my $str = shift;
         $str =~ s/,/_comma_/g;
         return $str;
    }

onepublic

回复 2# rubyish


    为什么你得帖子都是纠结了。。痛苦。。一晚

grshrd49

回复 12# onepublic


    应为他这一个晚上都很纠结 , 而不是应为这个帖子 啊哈哈哈哈哈

grshrd49

回复 11# 104359176


    这个替换是不是只能替换两层[] ?
哪如何是再多几层括号讷

inchonline

回复 4# snriyt

请问你的VI配置文件是怎么的啊，可否共享


   

inchonline

回复 4# snriyt
请问你的VI配置文件是怎么样的啊，可否共享

rubyish

回复 12# onepublic


    这问题我纠结了一下午，一直在纠结

rubyish

回复 13# grshrd49


    北极熊好 Q 啊。。

104359176

回复 14# grshrd49
对层数没有限制。代码没有测试，思路就是每次替换掉一层，将边界字符也替换掉。然后再次替换，直到找不到可以替换的。

   

onepublic

这个就是堆栈和出栈的原理

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. 
   
5. #stack op; show as Data::Dumper;
   
6. my $str= 'a,b,c,d,e,[e1,e2,[e21,e22,[e111,e222,e333],e33],e3],f';
   
7. 
   
8. my @stack;
   
9. my @array = split(/,/,$str);
   
10. 
    
11. push @stack,[];
    
12. 
    
13. for (@array){
    
14.     if (m/\[/){
    
15.         s/\[//g;
    
16.         my $ref = [];
    
17.         push @{$stack[-1]},$ref; ##build struct
    
18.         push @stack,$ref ;       #push stack
    
19.         push @{$stack[-1]},$_;
    
20.     }elsif (m/\]$/){
    
21.         s/\]//g;
    
22.         push @{$stack[-1]},$_;
    
23.         pop @stack;
    
24.     }else{
    
25.         push @{$stack[-1]},$_;
    
26.     }
    
27. 
    
28. }
    
29. print Dumper \@stack;

复制代码