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

看板Perl作者sqrt1089 (李崩子)時間12年前 (2012/03/03 05:34)推噓0(0推 0噓 7→)

留言7則, 2人參與討論串2/3 (看更多)

※ 引述《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

03/03 05:35, , 1^F

03/03 05:35, 1^F

※ 編輯: sqrt1089 來自: 114.39.168.72 (03/03 06:40)

→

saka12

03/06 07:55, , 2^F

03/06 07:55, 2^F

→

saka12

03/06 07:59, , 3^F