Perlについての質問箱 38箱目

Perlについての質問箱 38箱目 at TECH

579:デフォルトの名無しさん
08/11/29 20:53:53
>>564
勉強中の自分も作ってみた。

my @subjects = qw(国語算数理科);
my %names_of;

open my $in, "seiseki.txt" or die "can't open : $!";
while (<$in>) {
if ( /^x(.+)/ ) {
chomp(my @marks = split / /, <$in>);
for (0..$#subjects) {
push @{$names_of{$subjects[$_]}{$marks[$_]}}, $1;
}
}
}
close $in;

for my $subject (@subjects) {
print "≪$subject≫\n";
for my $mark ( sort {$a<=>$b} keys %{$names_of{$subject}} ) {
printf "%3d : %3d人\n", $mark, scalar @{$names_of{$subject}{$mark}};
}
}

次ページ

続きを表示

1を表示