Salve,
Posso consigliare a chiunque come correggere il mio script pls?
Non mi appare il corretto output \u003d (

Dettagli qui sotto:

Logfile
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Num Giocatori: 14
Nome Player: Jacee Thirkins
MVP vincitore: 1998
Fine dei dettagli ....

Num Giocatori: 35
Player Nome: Lander Diaz
MVP vincitore: 2002
Fine dei dettagli ....

Num Giocatori: 14
Nome Player: Jacee Thirkins
MVP vincitore: 1999
Fine dei dettagli ....

Num Giocatori: 35
Player Nome: Lander Diaz
MVP vincitore: 2001
Fine dei dettagli ....

Num Giocatori: 14
Player Nome: Oman Rodriguez
MVP vincitore: 1997
Fine dei dettagli ....

Num Giocatori: 35
Nome Player: Larry Simpkins
MVP vincitore: 2003
Fine dei dettagli ....

Num Giocatori: 14
Nome Player: Jacee Thirkins
MVP vincitore: 1996
Fine dei dettagli ....

Num Giocatori: 35
Player Nome: Lander Diaz
MVP vincitore: 2002
Fine dei dettagli ....

Num Giocatori: 14
Player Nome: Stephen Jabinzki
MVP vincitore: 1999
Fine dei dettagli ....

Num Giocatori: 35
Player Nome: Lander Diaz
MVP vincitore: 2004
Fine dei dettagli ....

Num Giocatori: 35
Nome Player: Larry Simpkins
MVP vincitore: 2005
Fine dei dettagli ....


Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
aperto (infile, "$ input");
open (OUTPUT, "> $ outfile");

il mio player_count%;
my @ all_player;

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

@ @ sorted_player \u003d sorta all_player;
per il giocatore $ (@ sorted_player)
(
if ( "$ giocatore" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
altro
(
($ $ player_count ctr) \u003d $ giocatore;
$ ctr \u003d 1;
)
$ \u003d $ prev_player giocatore;
)

$ paese \u003d 0;
per $ count (chiavi player_count%)
(
if ($ paese <\u003d 4)
(
print "\ nPlayer: $ player_count ($ count) MVP premi: $ count \ n";
$ paese + +;
)
altro
(
($ $ player_count giocatore) \u003d $ ctr;
$ ctr \u003d 0;
)
)

stretta (test);
close (OUTPUT);


Risultati attesi (dovrebbe essere per chi ha ottenuto la maggior parte dei premi in totale):


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