返回列表 发帖
Perl

Rank: 5Rank: 5

帖子
103 
积分
846 
技术
2  
捐助
0  
注册时间
2011-10-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-12-24 11:30 | 只看该作者

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

Rank: 5Rank: 5

帖子
339 
积分
669 
技术
25  
捐助
0  
注册时间
2009-9-20 
2楼
发表于 2011-12-25 20:24 | 只看该作者
可以将[]中的数据当作数组名，再将其下面的数据存入该数组中。

TOP

lllsoslll

Rank: 2

帖子
97 
积分
164 
技术
6  
捐助
0  
注册时间
2011-3-29 
3楼
发表于 2012-10-19 00:01 | 只看该作者 
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
lCOPY
SOS --- >> lllsoslll@163.com

TOP

返回列表