免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2480 | 回复: 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

论坛徽章:
33
荣誉会员
日期:2011-11-23 16:44:17天秤座
日期:2014-08-26 16:18:20天秤座
日期:2014-08-29 10:12:18丑牛
日期:2014-08-29 16:06:45丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17寅虎
日期:2014-09-11 14:24:21天蝎座
日期:2014-09-17 08:33:55IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津
日期:2016-05-06 12:46:59
发表于 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
复制代码

论坛徽章:
28
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
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP