Board logo

标题: [问题求助] Perl怎样根据段落合并行？ [打印本页]
作者: Perl    时间: 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    时间: 2011-12-25 20:24

可以将[]中的数据当作数组名，再将其下面的数据存入该数组中。
作者: lllsoslll    时间: 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
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2