忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 666 | 回复: 4

文本处理请教:分开行输出 [复制链接]

论坛徽章:
0
发表于 2017-08-28 16:35 |显示全部楼层
各位大神,本人文件如下,第2,3列用|分开的各部分一一对应,数目不确定,现在想分开写成多行,求指教

1    A|B|C   aa|bb|cc
2    A|B      aa|bb
3    D         dd

得到:
1    A    aa
1    B    bb
1    C    cc
2    A    aa
2    B    bb
3    D    dd

论坛徽章:
31
荣誉会员
日期:2011-11-23 16:44:17丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17天蝎座
日期:2014-08-21 17:18:48丑牛
日期:2014-08-29 16:06:45天秤座
日期:2014-08-29 10:12:18天秤座
日期:2014-08-26 16:18:20双子座
日期:2014-07-30 11:38:27寅虎
日期:2014-08-04 10:24:12IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:00
发表于 2017-08-28 21:23 |显示全部楼层
回复 1# zero_BX

这样?
  1. #!/usr/bin/perl
  2. #
  3. use warnings;
  4. use strict;

  5. open(my $fh, "<", "2.txt") or die "Can't open < 2.txt: $!";

  6. while (my $line = <$fh>) {
  7.     my ($num, $part1, $part2) = split(/\s+/, $line);
  8.     my @part1_array = split(/\|/, $part1);
  9.     my @part2_array = split(/\|/, $part2);
  10.     for (my $i = 0; $i < @part1_array; $i ++) {
  11.         printf("%d %s %s\n", $num, $part1_array[$i], $part2_array[$i]);
  12.     }

  13. }
复制代码
  1. 1 A aa
  2. 1 B bb
  3. 1 C cc
  4. 2 A aa
  5. 2 B bb
  6. 3 D dd
复制代码

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2017-08-29 01:25 |显示全部楼层
shishi:
  1. use 5.010;
  2. while (<DATA>) {
  3.     my ( $A, @B ) = split;
  4.     my ( $B, $C ) = map [ split '\|' ], @B;
  5.     say "$A\t$B->[$_]\t$C->[$_]" for 0 .. $#$B;
  6. }

  7. __DATA__
  8. 1    A|B|C   aa|bb|cc
  9. 2    A|B      aa|bb
  10. 3    D         dd
复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-09-03 11:17 |显示全部楼层
  1. #!/usr/bin/perl
  2. #use strict;
  3. use warnings;

  4. while(<DATA>){
  5.         my ($n, @aT) = split;
  6.         my @aOut = ();
  7.         foreach my $v (map {[split(/\|/, $aT[$_])]} 0 .. $#aT){
  8.                 push(@{$aOut[$_]}, $v->[$_]) for 0 .. $#$v;
  9.         }
  10.         print("$n @$_\n") for @aOut;
  11. }

  12. __DATA__
  13. 1    A|B|C   aa|bb|cc
  14. 2    A|B      aa|bb
  15. 3    D         dd
复制代码

论坛徽章:
27
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-09-04 13:30 |显示全部楼层

  1. awk '{l=split($2,a,"|");split($3,b,"|");for(i=1;i<=l;i++)print $1,a[i],b[i]}' file
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

10张SACC2017门票等你来拿~

在数字化转型时代,云已成为万物智能的数字化大脑。而随着大数据应用、人工智能、移动互联网等技术的飞速发展,“智慧 +” 的概念正在深入到各行各业,提升企业效率,释放商业潜能,创造全新机遇。作为国内顶级技术盛会之一,2017 中国系统架构师大会(SACC2017)将于 10 月 19-21 日在北京新云南皇冠假日酒店震撼来袭。今年,大会以 “云智未来” 为主题,云集国内外顶级专家,围绕云计算、人工智能、大数据、移动互联网、产业应用等热点领域展开技术探讨与交流。本届大会共设置 2 大主会场,18 个技术专场;邀请来自互联网、金融、制造业、电商等多个领域,100 余位技术专家及行业领袖来分享他们的经验;并将吸引 4000 + 人次的系统运维、架构师及 IT 决策人士参会,为他们提供最具价值的交流平台。
----------------------------------------
优惠时间:2017年10月19日前

活动链接>>
  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP