fixed sintax error near $grades{$student}
SOLUCIÓN Debido al pragma use strict, declarar bien el ámbito de las variables. Programming Perl 3rd ed. Chapter 1 - En mi caso, uso perlbrew, de modo que ejecuto el script vía perl ./gradation.pl sin darle atributos de ejecución previamente. Contenido del archivo grades.txt: Noël 25 Ben 76 Clementine 49 Norm 66 Chris 92 Doug 42 Carol 25 Ben 12 Clementine 0 Norm 66 Código del script gradation.pl: #!/usr/bin/env perl # because perlbrew # perl ./gradation.pl without using chmod u+x gradation.pl use strict; use warnings; use autodie; use diagnostics; my $line; my $student; my $grade; #my $grades; my %grades; my $scores; my $total; my @grades; my $average; my $grades_fh; my $filename = 'grades.txt'; # open(GRADES,"grades.txt") or die("Cant open grades.txt:$!\n"); # Use a lexical file handle '$grades_fh' instead of 'GRADES' open($grades_fh, '<', $filename) or die "Can't open $filename: $!\n"; while ($line = <$g...
