免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 新手问题：如何将文件里两行合并为一行（含具体文件格式 ...
最近访问板块 发新帖
查看: 14344 | 回复: 2
打印 上一主题 下一主题

新手问题：如何将文件里两行合并为一行（含具体文件格式）？ [复制链接]

chenzq1604

论坛徽章:
0
1楼 [报告]
发表于 2009-03-25 14:22 |显示全部楼层
  怎么个处理法？
chenzq1604

论坛徽章:
0
2楼 [报告]
发表于 2009-03-25 16:06 |显示全部楼层
原帖由 jyleon24 于 2009-3-25 15:28 发表
谢which，不过貌似都不行啊



这样行不：

  2. [~]$ cat text
  3.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  4.                       10110010010010000011000011110010111101000110110001";
  5.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  6.                       10110010010010000011000011110010111101000110110001";
  7.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  8.                       10110010010010000011000011110010111101000110110001";
  9.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  10.                       10110010010010000011000011110010111101000110110001";
  11.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  12.                       10110010010010000011000011110010111101000110110001";
  13.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  14.                       10110010010010000011000011110010111101000110110001";
  15.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  16.                       10110010010010000011000011110010111101000110110001";
  17.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  18.                       10110010010010000011000011110010111101000110110001";
  19.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  20.                       10110010010010000011000011110010111101000110110001";
  21.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  22.                       10110010010010000011000011110010111101000110110001";
  23.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  24.                       10110010010010000011000011110010111101000110110001";
  25.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  26.                       10110010010010000011000011110010111101000110110001";
  27.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  28.                       10110010010010000011000011110010111101000110110001";
  29.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  30.                       10110010010010000011000011110010111101000110110001";
  31.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
  32.                       10110010010010000011000011110010111101000110110001";


  35. [~]$ perl -ne 's/(^\s+chain.*?)\n/$1/;print' text |perl -ne 's/\\\s+(\d+)/\\$1/;print'
  36.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  37.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  38.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  39.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  40.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  41.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  42.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  43.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  44.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  45.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  46.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  47.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  48.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  49.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
  50.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";



复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chenzq1604

论坛徽章:
0
3楼 [报告]
发表于 2009-03-25 16:07 |显示全部楼层
原帖由 redmaple_v1 于 2009-3-25 15:46 发表
问一下which， \t  是啥意思，从来没有见过呢，我也刚接触perl。。



\t  =tab
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP