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. __DATA__
  11. [Nokia]
  12. a
  13. b
  14. c
  15. d
  16. [Simens]
  17. 1
  18. 2
  19. 3
  20. [Ericsson]
  21. h
  22. i
  23. j
  24. k
  25. l
复制代码





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