Hej,
Kan nogen rådgive om, hvordan at rette mit script pls?
Jeg får ikke det korrekte output \u003d (

Detaljer nedenfor:

Logfil
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Player Num: 14
Spiller Navn: Jacee Thirkins
MVP vinder: 1998
Slutningen af detaljer ....

Player Num: 35
Spiller Navn: Lander Diaz
MVP vinder: 2002
Slutningen af detaljer ....

Player Num: 14
Spiller Navn: Jacee Thirkins
MVP vinder: 1999
Slutningen af detaljer ....

Player Num: 35
Spiller Navn: Lander Diaz
MVP vinder: 2001
Slutningen af detaljer ....

Player Num: 14
Spiller Navn: Oman Rodriguez
MVP vinder: 1997
Slutningen af detaljer ....

Player Num: 35
Spiller Navn: Larry Simpkins
MVP vinder: 2003
Slutningen af detaljer ....

Player Num: 14
Spiller Navn: Jacee Thirkins
MVP vinder: 1996
Slutningen af detaljer ....

Player Num: 35
Spiller Navn: Lander Diaz
MVP vinder: 2002
Slutningen af detaljer ....

Player Num: 14
Spiller Navn: Stephen Jabinzki
MVP vinder: 1999
Slutningen af detaljer ....

Player Num: 35
Spiller Navn: Lander Diaz
MVP vinder: 2004
Slutningen af detaljer ....

Player Num: 35
Spiller Navn: Larry Simpkins
MVP vinder: 2005
Slutningen af detaljer ....


Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
open (infile, "$ inddatafilen");
åben (OUTPUT, "> $ outfile");

my% player_count;
my @ all_player;

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

@ sorted_player \u003d sortere @ all_player;
for $ afspiller (@ sorted_player)
(
if ( "$ player" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
anden
(
$ player_count ($ ctr) \u003d $ player;
$ ctr \u003d 1;
)
$ prev_player \u003d $ player;
)

$ Countr \u003d 0;
for $ count (nøgler% player_count)
(
if ($ countr <\u003d 4)
(
print "\ nPlayer: $ player_count ($ count) MVP awards: $ count \ n";
$ Countr + +;
)
anden
(
$ player_count ($ spiller) \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (test);
tæt (output);


Forventet output (skal være i orden, der fik de fleste priser i alt):


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

my %player_count;

open (INFILE,"$inputfile");

while (my $cur_rec = <INFILE>){
   if ( $cur_rec =~ m/Player Name\s*:\s*(.*)/ ){
      $player_count{$1}++;
   }
}
close (INFILE);

my @top_five = (sort{$player_count{$b} <=> $player_count{$a}} keys %player_count)[0..4];
print "$_ = $player_count{$_}\n" for @top_five;