求各位大神，perl 对特定范围内的数据求平均值 - 程序语言 - Shell&Perl

版块导航: 正在加载中...

客户端APP下载

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

>论坛更新日志 (2663)
>虫友互识 (305)
>导师招生 (112)
>考博 (108)
>文献求助 (80)
>基金申请 (67)
>硕博家园 (56)
>仿真模拟 (44)
>博后之家 (43)
>论文投稿 (43)
>休闲灌水 (39)
>教师之家 (30)
>公派出国 (30)
>找工作 (29)
>考研 (27)
>招聘信息布告栏 (21)

返回列表

junruiwang

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 153.2
散金: 30
红花: 1
帖子: 89
在线: 16.2小时
虫号: 3501565
注册: 2014-10-27
性别: MM
专业: 作物种质资源与遗传育种学

送红花一朵

引用回帖:

9楼: Originally posted by FMStation at 2016-08-18 06:02:35
~~~~~~code~~~~~~~~~
# Program in Perl
use Data:

umper;
use POSIX;
my @sumY, @numY;
open my $fh, '<', "output.txt" or
die "could not open file: $!";
$line = < ...

有个程序能否再帮忙看一下啊？有点错误。。
#! /usr/bin/perl -w

use strict;

die "perl $0 test \n" unless @ARGV==1;

my $file=shift;

open IN,$file||die;

my %hash;

map{my @p=split;$hash{$p[0]}{$_}=$p[1]}<IN>;

close IN;

foreach my $k(sort keys%hash){

      my $count=0;

      my $sum=0;

      foreach my $v(sort keys %{$hash{$k}}){

            $count++;

            $sum+=$hash{$k}{$v};

      }

my$mean=sprintf "%.2f",$sum/$count;

print "$k\t",$mean,"\n";

}

就是第一列相同的计算一个平均值，
1 0.32
1 2
1 2
1 0.54
1 0.98
8 0.78
8 0.56
8 0.23
8 0.44
8 0.33
8 0.35
1的算一个平均值，8的算一个平均值，但是这个程序算出来的与我手动算的结果不一致，好像是1 2 这样有相同行的只保留了一个计算，这个应该怎么改呢？

赞一下

回复此楼

11楼2016-08-24 22:42:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 junruiwang 的主题更新

返回列表

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[基金申请] 河北省自然科学基金 +5	Peterchao 2026-05-18	8/400	2026-05-24 11:58 by 晓晓爱翠翠
[考博] 云南大学材料与能源学院解琳课题组钙钛矿博士招生 +4	光伏爱好者 2026-05-17	7/350	2026-05-24 10:20 by 光伏爱好者
[基金申请] 西安交大新媒学院副院长用撤稿论文结题 +3	bjvtcliu 2026-05-24	5/250	2026-05-24 10:16 by kudofaye
[教师之家] 论文撤稿了 +3	bjvtcliu 2026-05-24	5/250	2026-05-24 10:06 by Equinoxhua
[教师之家] 某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！ +4	zju2000 2026-05-21	5/250	2026-05-24 09:35 by songwz
[考博] 26/27申博自荐 10+4	ZXW0202 2026-05-22	9/450	2026-05-24 08:47 by bjvtcliu
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	hvkbtfonbv 2026-05-23	3/150	2026-05-24 08:01 by 9ps9vgkqva
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	pmo95bazuy 2026-05-23	7/350	2026-05-24 06:35 by fpo5ljpv91
[基金申请] 揭秘青基评审内幕：几个A才能顺利中标 +3	国自然国社科中 2026-05-23	4/200	2026-05-23 15:37 by 2000zf36392
[考博] 博士申请 +3	焦晓明 2026-05-21	3/150	2026-05-23 11:26 by mlc840311
[论文投稿] 投稿求助，期刊 +4	希冀，有书读 2026-05-20	8/400	2026-05-22 10:16 by 希冀，有书读
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +14	1234567wang 2026-05-17	16/800	2026-05-21 17:58 by 脆脆的饼干
[基金申请] 国自然评分 +4	无名者登山 2026-05-20	5/250	2026-05-21 16:35 by swuq
[基金申请] 国自然上会要求 +7	无名者登山 2026-05-18	11/550	2026-05-21 15:50 by draco1987
[基金申请] 提交了我也来说说感想 +9	fummck 2026-05-20	10/500	2026-05-21 14:17 by draco1987
[基金申请] 评审有感 +15	popular289 2026-05-18	26/1300	2026-05-21 10:35 by 西葫芦炒鸡蛋
[有机交流] 反应很差，大量原料没有反应 5+3	Mr.Zot 2026-05-19	8/400	2026-05-20 22:19 by Equinoxhua
[考博] 如果工作了想读博，可以边工作边读全日制嘛？ 30+3	铁达火车 2026-05-18	5/250	2026-05-20 09:33 by tfang
[考博] 博士申请 +5	星…… 2026-05-18	6/300	2026-05-18 23:49 by 糊糊涂涂好
[硕博家园] 我在等一个没有答案的答案 +3	Love_MH 2026-05-17	3/150	2026-05-18 02:22 by 竹林孤影