- 409 名前：405 mailto:sage [2009/03/26(木) 20:37:12 ]
- しくしく。。。
どう書けばいいのかわからないんです、アドバイスください
@array = ('マグロ','鯛','イワシ','鯛','マグロ','鯛');
&extract(@array);
#一番多い要素を書き出す
sub extract {
foreach (@_) {
$hash{$_} ++;
}
while (($key, $value) = each(%hash)) {
push(@test, $value);
}
@sort = sort{$b <=> $a} @test;
$shift = shift(@sort);
$aa = $hash{$shift};
print "$aa";
}
