Hoi,
Kan iemand adviseren hoe te corrigeren mijn script pls?
Ik ben niet de juiste output \u003d (

Details hieronder:

Logbestand
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Speler Num: 14
Speler naam: Jacee Thirkins
MVP winnaar: 1998
Einde van de details ....

Speler Num: 35
Speler Naam: Lander Diaz
MVP winnaar: 2002
Einde van de details ....

Speler Num: 14
Speler naam: Jacee Thirkins
MVP winnaar: 1999
Einde van de details ....

Speler Num: 35
Speler Naam: Lander Diaz
MVP winnaar: 2001
Einde van de details ....

Speler Num: 14
Speler Naam: Oman Rodriguez
MVP winnaar: 1997
Einde van de details ....

Speler Num: 35
Speler Naam: Larry Simpkins
MVP winnaar: 2003
Einde van de details ....

Speler Num: 14
Speler naam: Jacee Thirkins
MVP winnaar: 1996
Einde van de details ....

Speler Num: 35
Speler Naam: Lander Diaz
MVP winnaar: 2002
Einde van de details ....

Speler Num: 14
Speler naam: Stephen Jabinzki
MVP winnaar: 1999
Einde van de details ....

Speler Num: 35
Speler Naam: Lander Diaz
MVP winnaar: 2004
Einde van de details ....

Speler Num: 35
Speler Naam: Larry Simpkins
MVP winnaar: 2005
Einde van de details ....


Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
open (INFILE, "$ invoerbestand");
open (OUTPUT, "> $ hetbestand");

mijn% player_count;
my @ all_player;

while ($ cur_rec \u003d <INFILE>)
(
if ($ cur_rec \u003d ~ m / Player Naam /)
(
@ record \u003d split (/:/, $ cur_rec);
$ playername \u003d "$ record [1]". "$ record [2]";
push (@ all_player, $ playername);
)
)

@ sorted_player \u003d soort @ all_player;
voor $ speler (@ sorted_player)
(
if ( "$ speler" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
anders
(
$ player_count ($ ctr) \u003d $ speler;
$ ctr \u003d 1;
)
$ prev_player \u003d $ speler;
)

$ landnummer \u003d 0;
voor $ count (toetsen% player_count)
(
if ($ landnummer <\u003d 4)
(
print "\ nPlayer: $ player_count ($ count) MVP Awards: $ count \ n";
$ landnummer + +;
)
anders
(
$ player_count ($ speler) \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (test);
close (OUTPUT);


Verwachte output (moet worden om wie kreeg de meeste awards in totaal):


Top5 MVP winnaars
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Lander Diaz
Jacee Thirkins
Larry Simpkins
Oman Rodriguez
Stephen Jabinzki