Hej,
Kan någon ge råd om hur att rätta till mitt manus pls?
Jag får korrekt output \u003d (

Raderna nedan:

Logfile
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Spelare Num: 14
Player Namn: Jacee Thirkins
MVP Vinnare: 1998
Slut detaljer ....

Spelare Num: 35
Player Namn: Lander Diaz
MVP Vinnare: 2002
Slut detaljer ....

Spelare Num: 14
Player Namn: Jacee Thirkins
MVP Vinnare: 1999
Slut detaljer ....

Spelare Num: 35
Player Namn: Lander Diaz
MVP Vinnare: 2001
Slut detaljer ....

Spelare Num: 14
Player Namn: Oman Rodriguez
MVP Vinnare: 1997
Slut detaljer ....

Spelare Num: 35
Player Namn: Larry Simpkins
MVP Vinnare: 2003
Slut detaljer ....

Spelare Num: 14
Player Namn: Jacee Thirkins
MVP Vinnare: 1996
Slut detaljer ....

Spelare Num: 35
Player Namn: Lander Diaz
MVP Vinnare: 2002
Slut detaljer ....

Spelare Num: 14
Player Namn: Stephen Jabinzki
MVP Vinnare: 1999
Slut detaljer ....

Spelare Num: 35
Player Namn: Lander Diaz
MVP Vinnare: 2004
Slut detaljer ....

Spelare Num: 35
Player Namn: Larry Simpkins
MVP Vinnare: 2005
Slut detaljer ....


Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
open (infil, "$ indatafilen");
open (OUTPUT, "> $ utfil");

my% player_count;
my @ all_player;

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

@ sorted_player \u003d sort @ all_player;
för $ spelare (@ sorted_player)
(
if ( "$ spelare" eq "$ prev_player" | | $ CTR \u003d\u003d 0)
(
$ ctr + +;
)
annan
(
$ player_count ($ ctr) \u003d $ player;
$ ctr \u003d 1;
)
$ prev_player \u003d $ player;
)

$ countr \u003d 0;
för $ count (nycklar% player_count)
(
if ($ countr <\u003d 4)
(
print "\ nPlayer: $ player_count ($ count) MVP utmärkelser: $ count \ n";
$ countr + +;
)
annan
(
$ player_count ($ spelare) \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (TEST);
nära (OUTPUT);


Förväntade resultatet (ska vara i sin ordning som fick mest utmärkelser totalt):


Top5 MVP vinnare
\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