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

ChinaUnix.net

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

perl进行行列转置 [复制链接]

论坛徽章:
0
发表于 2017-02-16 20:58 |显示全部楼层
这里有个文件,内容如下
name1  0:abcd|0:efhg|....
name2  0:abcd|0:efhg|....
name3  0:abcd|0:efhg|....
...
提取0:和|之间的内容并进行转置得到
name1   name2   name3   ...
abcd      abcd      abcd
efgh      efgh       efgh
...
请问如何实现      

论坛徽章:
0
发表于 2017-02-22 13:53 |显示全部楼层

论坛徽章:
298
程序设计版块每周发帖之星
日期: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-02-22 18:31 |显示全部楼层
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. my @aData = ();
  5. while (<DATA>){
  6.         my @aT = split;
  7.         push (@{$aData[$_]}, $aT[$_]) for 0 .. $#aT;
  8. }

  9. print join ("\t", @$_), "\n" for @aData;

  10. __DATA__
  11. a1        b1        c1
  12. a2        b2        c2
  13. a3        b3        c3
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP