Perl怎样根据段落合并行？

Perl

文件内容如下：
[Nokia]
a
b
c
d
[Simens]
1
2
3
[Ericsson]
h
i
j
k
l

需要合并之后得到：
[Nokia]
a,b,c,d
[Simens]
1,2,3
[Ericsson]
h,i,j,k,l

sxw

可以将[]中的数据当作数组名，再将其下面的数据存入该数组中。

lllsoslll

1. while(<DATA>){
   
2.         if(/^[\[]/){
   
3.                 print "\n",$_;
   
4.         }else{
   
5.                 chomp;
   
6.                 print;
   
7.         }
   
8. }
   
9. print $a;
   
10. 
    
11. __DATA__
    
12. [Nokia]
    
13. a
    
14. b
    
15. c
    
16. d
    
17. [Simens]
    
18. 1
    
19. 2
    
20. 3
    
21. [Ericsson]
    
22. h
    
23. i
    
24. j
    
25. k
    
26. l

复制代码