[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

  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
复制代码
SOS --- >> lllsoslll@163.com

TOP

可以将[]中的数据当作数组名,再将其下面的数据存入该数组中。

TOP

返回列表