作者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)