[问题求助] 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

while(<DATA>){
	if(/^[\[]/){
		print "\n",$_;
	}else{
		chomp;
		print;
	}
}
print $a;

__DATA__
[Nokia]
a
b
c
d
[Simens]
1
2
3
[Ericsson]
h
i
j
k
l
复制代码