免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1603 | 回复: 9

【解决了】麻烦各位大牛了 给个思路就好【解决了】 [复制链接]

sinian126 该用户已被删除
发表于 2013-06-13 10:03 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
sinian126 该用户已被删除
发表于 2013-06-13 10:16 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
sinian126 该用户已被删除
发表于 2013-06-13 10:56 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
3
摩羯座
日期:2013-09-04 12:01:36申猴
日期:2013-10-23 12:12:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34
发表于 2013-06-13 13:57 |显示全部楼层
自编自导自演 哈哈!
遇到问题自己思考解决最舒服了

论坛徽章:
3
CU十二周年纪念徽章
日期:2013-10-24 15:41:34子鼠
日期:2013-12-14 14:57:19射手座
日期:2014-04-25 21:23:23
发表于 2013-06-13 14:01 |显示全部楼层
本帖最后由 mcshell 于 2013-06-13 14:02 编辑

  1. my (%hash,$num);
  2. while (<DATA>) {
  3.     my @line = split;
  4.     my $data = shift @line;
  5.     $num = @line - 1;
  6.     push @{ $hash{$data} }, "@line";
  7. }
  8. for my $name ( keys %hash ) {
  9.     my @arr;
  10.     if ( scalar @{ $hash{$name} } > 1 ) {
  11.         for my $i ( 0 .. $num ) {
  12.             my $sum;
  13.             for ( @{ $hash{$name} } ) {
  14.                 my @data = split;
  15.                 $sum += $data[$i] / 2;
  16.             }
  17.             push @arr, $sum;
  18.         }
  19.         print "$name\t@arr\n";
  20.     }
  21.     else {
  22.         print "$name\t@{$hash{$name}}\n";
  23.     }
  24. }
  25. __DATA__
  26. 。。。
复制代码

论坛徽章:
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
发表于 2013-06-13 14:56 |显示全部楼层
本帖最后由 rubyish 于 2013-06-13 10:57 编辑

感觉理解了~
  1. #!/usr/bin/perl
  2. use 5.016;
  3. my %h;
  4. while (<>) {
  5.     my ( $k, @v ) = split;
  6.     $h{$k} = [ $h{$k} ? map { ( $h{$k}[$_] + $v[$_] ) / 2 } 0 .. $#v : @v ];
  7. }
  8. say join "\t", $_, @{ $h{$_} } for sort keys %h;
复制代码
  1. perl abc.pl result1.txt > result2.txt
复制代码

论坛徽章:
3
CU十二周年纪念徽章
日期:2013-10-24 15:41:34子鼠
日期:2013-12-14 14:57:19射手座
日期:2014-04-25 21:23:23
发表于 2013-06-13 15:58 |显示全部楼层
回复 6# rubyish


    {:3_186:} 大牛哥

论坛徽章:
0
发表于 2013-06-13 22:32 |显示全部楼层
三行一样的会不不会就变成1/4啦
回复 6# rubyish


   

论坛徽章:
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
发表于 2013-06-14 01:08 |显示全部楼层
回复 8# shalk11
  1. 三行一样的会不不会就变成1/4啦
复制代码


哈哈 ! bug 了~
谢谢大牛指导~
  1. #!/usr/bin/perl
  2. use 5.016;
  3. my %h;
  4. while (<DATA>) {
  5.     my ( $k, @v ) = split;
  6.     $h{$k}{D} = [ $h{$k}{L}++ ? map $h{$k}{D}[$_] + $v[$_], 0 .. $#v : @v ];
  7. }
  8. for my $k ( sort keys %h ) {
  9.     say join "\t", $k, map $_ / $h{$k}{L}, @{ $h{$k}{D} };
  10. }
  11. __DATA__
  12. a 2 2 1
  13. a 2 2 2
  14. a 2 2 3
  15. b 1 1 1
复制代码
  1. a       2       2       2
  2. b       1       1       1
复制代码
sinian126 该用户已被删除
发表于 2013-06-19 15:56 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP