堆栈问题

yestreenstars

处理前：
{0},1,2,{3,4},{{{0,1},1,2},5,6,{7,8},9,0,{1,1},{2,2,3},0,{1,{2},3}},0,{1,1},0,0,{2,2},{0}

要求：
取出括号里的各个元素。

处理后：
0
3,4
0,1
1,2
5,6,
7,8
9,0,
1,1
2,2,3
0,
1,
2
3
1,1
2,2
0

注：聪明的你应该发现有些结果后面会多出一个逗号，并非我打错了。

yestreenstars

@seesea2517佩服佩服~

seesea2517

回复 22# seeLnd


    就这么简单啊……真是大跌眼镜哈哈，感谢感谢。

seeLnd

回复 21# seesea2517

1. echo -n "abc" | while read -n1 var; do echo $var; done

复制代码

seesea2517

纯shell处理的，有一个问题，我没找到 IFS 如何设置可以使得 for 里的 i 可以一个字符一个字符地取，没办法就把每个字符用 sed 处理为空格分隔了。希望有知道处理方法的 @ 我一下~

1. input="{0},1,2,{3,4},{{{0,1},1,2},5,6,{7,8},9,0,{1,1},{2,2,3},0,{1,{2},3}},0,{1,1},0,0,{2,2},{0}"
   
2. flag=0
   
3. str=""
   
4. for i in $(echo $input | sed 's/./& /g')
   
5. do
   
6.     if [ $i = "{" ]
   
7.     then
   
8.         (( ++flag ))
   
9.     elif [ $i = "}" ]
   
10.     then
    
11.         (( --flag ))
    
12.     fi
    
13.       
    
14.     if [ $flag -lt 0 ]
    
15.     then
    
16.         echo "喂！括号不匹配。"
    
17.         exit
    
18.     fi
    
19.    
    
20.     test_str="}{"
    
21.     if [ ${test_str/$i/} != $test_str -a "$str" != "" ]
    
22.     then
    
23.         echo $str
    
24.         str=""
    
25.     fi
    
26.    
    
27.     test_str=",}{"
    
28.     if [ "$str" = "" -a ${test_str/$i/} != $test_str ]
    
29.     then
    
30.         continue
    
31.     fi
    
32.    
    
33.     if [ $flag -eq 0 ]
    
34.     then
    
35.         continue
    
36.     fi
    
37.         
    
38.     str="$str$i"
    
39. done

复制代码

seesea2517

回复 19# yestreenstars


    这个建议不错，嗯，看，15楼就是纯代码的。

yestreenstars

回复 18# seesea2517


    这个可以有 我建议下次发代码时把代码和结果分开来发，不然不好复制代码啊~

seesea2517

要不要来个纯shell的？这个 awk 的可以直接转化，哈。

seesea2517

其实把上面的正则的直接移植到 awk 就可以，我这特意用另一种思路。

seesea2517

1. [seesea@UC ~]$ echo "{0},1,2,{3,4},{{{0,1},1,2},5,6,{7,8},9,0,{1,1},{2,2,3},0,{1,{2},3}},0,{1,1},0,0,{2,2},{0}" | awk '
   
2. > BEGIN{
   
3. >     FS=""
   
4. > }
   
5. >
   
6. > {
   
7. >     for (i = 1; i <= NF; ++i)
   
8. >     {
   
9. >         if ($i == "{")
   
10. >         {
    
11. >             ++flag;
    
12. >         }
    
13. >         else if ($i == "}")
    
14. >         {
    
15. >             --flag;
    
16. >         }
    
17. >            
    
18. >         if (flag < 0)
    
19. >         {
    
20. >             print "喂！括号不匹配。"
    
21. >             exit
    
22. >         }
    
23. >         
    
24. >         if ($i ~ "[}{]" && str != "")
    
25. >         {
    
26. >             print str
    
27. >             str = ""
    
28. >         }
    
29. >            
    
30. >         if (str == "" && $i ~ "[,}{]")
    
31. >             continue
    
32. >         
    
33. >         if (flag == 0)
    
34. >         {
    
35. >             continue
    
36. >         }
    
37. >            
    
38. >         str = str""$i
    
39. >     }   
    
40. > }'
    
41. 0
    
42. 3,4
    
43. 0,1
    
44. 1,2
    
45. 5,6,
    
46. 7,8
    
47. 9,0,
    
48. 1,1
    
49. 2,2,3
    
50. 0,
    
51. 1,
    
52. 2
    
53. 3
    
54. 1,1
    
55. 2,2
    
56. 0

复制代码