Первая прога на Перле не пашет (( Нужен хелп

[Gnix]

Начал читать книгу по Перлу("Программирование на Перл - Уолл") и первый код неработает
Нужно сложить две оценки для каждого ученика из файла (которые размещены через пробел), посчитать общее количество(учеников) и общее количество баллов, разделить второе на первое и получить средний балл.
Файл grades, ученики тут в виде ??????:

Код: Выделить всё

???1130 23 16
???1180 19 16
???1454 19 13
???1477 0 0
???1988 25 22
???2195 19 13
???3010 19 13
???3269 0 0
???3362 19 18
???3609 0 0
???3624 23 17
???3878 22 13
???4277 19 13
???4490 30 19
???4594 19 18

Код: Выделить всё

#!/usr/bin/perl  
 
open(GRADES,"grades") or die "Error: $!\n";
while ($line=<GRADES>){
  ($student, $grade1, $grade2) = split(" ", $line);
  $grade=$grade1+$grade2;
  $grades{$student} .=$grade . " "; 
}

foreach $student (sort keys %grades){
  $scores=0;
  $total=0;
  @grades=split(" ", $grades{$student});
  foreach $grade (@grades) {
   $total+=$grade;
   $scores++;
}
$average=$total/$scores;
print "$student: $grades{$student}\tRESULTS: $averege\n";
}

результат

Код: Выделить всё

???1130: 39     RESULTS: 39
???1180: 35     RESULTS: 35
???1454: 32     RESULTS: 32
???1477: 0      RESULTS: 0
???1988: 47     RESULTS: 47
???2195: 32     RESULTS: 32
???3010: 32     RESULTS: 32
???3269: 0      RESULTS: 0
???3362: 37     RESULTS: 37
???3609: 0      RESULTS: 0
???3624: 40     RESULTS: 40
???3878: 35     RESULTS: 35
???4277: 32     RESULTS: 32
???4490: 49     RESULTS: 49
???4594: 37     RESULTS: 37

а мне нужно чтобы в RESULTS стоял средний балл от всех баллов, не понимаю в инструкциях

буду благодарен если кто поможет

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

$average=$total/$scores;

print "$student: $grades{$student}\tRESULTS: $averege\n";

[zg]

@grades=split(" ", $grades{$student});

не надо давать разным переменным одинаковые имена :el:

[zg]

и первый код неработает

что-то код сложноватый для хелловорлд.

прочитай главу про работу с файлами, затем нумерованные массивы, затем ассоциативные, тогда будет понятней

[Gnix]

упростил код до такого:

Код: Выделить всё

#!/usr/bin/perl  
 
$scores=0;
$total=0;
open(GRADES,"grades") or die "File did not open: $!\n";
while ($line=<GRADES>){
  ($student, $grade1, $grade2) = split(" ", $line);
  $grade=$grade1+$grade2;
  $total+=$grade;
  $grades{$student} .=$grade . " "; 
  $scores++
  }
 
foreach $student (sort keys %grades){

 $average=$total/$scores;
 print "$student: $grades{$student}\n";
}
 print "RESULTS: $average\tUsers: $scores\n";

и получил свои средние значения

Код: Выделить всё

???1130: 39
???1180: 35
???1454: 32
???1477: 0
???1988: 47
???2195: 32
???3010: 32
???3269: 0
???3362: 37
???3609: 0
???3624: 40
???3878: 35
???4277: 32
???4490: 49
???4594: 37
RESULTS: 29.8   Users: 15

Спасибо zg

[Gnix]

А как сделать сортировку $grades{$student} по убыванию, или возрастанию ??

[zg]

foreach $student (sort keys %grades){

тут и идёт сортировка, как я понял. Ну можешь мануал почитать http://perldoc.perl.org/functions/sort.html для меня это набор букв

[ProFTP]

А как сделать сортировку $grades{$student} по убыванию

Код: Выделить всё

foreach $student (reverse sort  keys %grades){