Re: [問題] 如何從sub讀取hash of array的值

[sqrt1089 (李崩子)]

※ 引述《saka12 (saka)》之銘言：
: 最近在練習Hash of array,可是對於如何傳遞hash of array到sub的應用還是有些不明白
: 我練習的hash如下: key是考試名稱, value是分數
: %hash = ( "testA"  => [66,77,43,21,86],
:           "testB"  => [70,34],
:           "testC"  => [61,74,88,34,75],
:           "testD"  => [77,100,87,65,93],
:           "testE"  => [40],
:           "testF"  => [65,86,78,62,89,67,77,79,60],
:           "testG"  => [99,21,33]);
: 我想隨意輸入一個考試名稱,然後顯示出最高分,最低分,和平均值,
: 或者是移除該考試的所有成績
: 例如:
: 輸入: testC
: 顯示: 最高分 88  最低分 34 平均值 66.4
: 現在卡在...當我<STDIN>之後,我不知道怎麼傳遞變數到sub之後,並得到該考試的value
: 我今天試了好久,也google了,可是還是卡在這裡,請大家幫幫忙,謝謝


#!/usr/bin/perl -w
chomp ($in=<>);

($m, $max, $min) = &score($in);

print "input = $in\nmean = $m\tMan = $max\tMin=$min\n";

sub score{
    $in = shift;
    %hash = ( "testA"  => [66,77,43,21,86],
              "testB"  => [70,34],
              "testC"  => [61,74,88,34,75],
              "testD"  => [77,100,87,65,93],
              "testE"  => [40],
              "testF"  => [65,86,78,62,89,67,77,79,60],
              "testG"  => [99,21,33]
    );
    $mean= Mean( @{$hash{$in}} );
    $max = MAX ( @{$hash{$in}} );
    $min = MIN ( @{$hash{$in}} );
    return ($mean, $max, $min);
}
sub Mean{
    $m = 0;
    for( @_ ){ $m += $_; $times++; }
    $m/=$times;
    return $m;
}
sub MAX{
    $ma = $_[0];
    for $e(@_){
        if( $ma < $e ){ $ma = $e; }
    }
        return $ma;
}
sub MIN{
    $mi = $_[0];
    for $i(@_){
        if( $mi > $i ){ $mi = $i; }
    }
        return $mi;
}


執行：./play.pl

輸入：testC

輸出：
input = testC
mean = 66.4     Man = 88        Min=34

--

--
                                                      ▂▂     ▂▂▂
                                                   ▂▄▅▅▄▆█ ＿█◣
                                                 ◢     (●)  ◣／＼＼
                                                   丫          │◥ ￣◤

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.215.231
→ sqrt1089:..Man=Max 我打錯字= =
※ 編輯: sqrt1089        來自: 114.39.168.72        (03/03 06:40)
→ saka12:%hash可以放在不要放在sub裡嗎?如果我要算平均值又要增加或
→ saka12:移除某些考試的資料,這樣感覺sun會落落長!! 先謝謝你的幫忙
→ sqrt1089:那就把hash丟進去吧
→ sqrt1089:&score ($in, \%hash);
→ sqrt1089:my $data = shift; #接hada的;
→ sqrt1089:@{$hash{$in}} 改成 @{${$data}{$in}}
※ 編輯: sqrt1089        來自: 114.39.168.207       (03/10 00:10)