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

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

577:デフォルトの名無しさん
08/11/29 18:55:57
>>564
勉強中なんで、腕試し。こんなもんかな？(未検証)

open (IN, "Seiseki.txt");
while(<IN>){
if (/(\d+) (\d+) (\d+)/) {
$Kokugo[$1]++;
$Sansuu[$2]++;
$Rika[$3]++;
}
}
close(IN);

print "点数国語算数理科\r\n";
for(0..100){
printf("%4d %4d %4d %4d\r\n", $_, $Kokugo[$_], $Sansuu[$_], $Rika[$_]);
}

次ページ

続きを表示

1を表示