作者sqrt1089 (李崩子)
看板Perl
標題Re: [問題] 如何從sub讀取hash of array的值
時間Sat Mar 3 05:34:44 2012
※ 引述《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
1F：→ sqrt1089:..Man=Max 我打錯字= = 03/03 05:35
※ 編輯: sqrt1089 來自: 114.39.168.72 (03/03 06:40)
2F：→ saka12:%hash可以放在不要放在sub裡嗎?如果我要算平均值又要增加或 03/06 07:55
3F：→ saka12:移除某些考試的資料,這樣感覺sun會落落長!! 先謝謝你的幫忙 03/06 07:59
4F：→ sqrt1089:那就把hash丟進去吧 03/09 23:59
5F：→ sqrt1089:&score ($in, \%hash); 03/10 00:02
6F：→ sqrt1089:my $data = shift; #接hada的; 03/10 00:03
7F：→ sqrt1089:@{$hash{$in}} 改成 @{${$data}{$in}} 03/10 00:09
※ 編輯: sqrt1089 來自: 114.39.168.207 (03/10 00:10)