2008-05-05から1日間の記事一覧
5.5練習問題2の自分の解答 print "名前を入力してください。\n"; chomp(my @name_list = <STDIN>); my %hash; foreach (@name_list) { my $name = $_; if (! exists $hash{$name}) { $hash{$name} = 1; } else { $hash{$name} += 1; } } while ( my ($key, $val</stdin>…