[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
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 | 只看该作者 
  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
复制代码
SOS --- >> lllsoslll@163.com

TOP

返回列表