Hola,
¿Alguien puede aconsejar cómo corregir mi script PLS?
No estoy recibiendo la correcta salida \u003d (

Detalles a continuación:

'Log'
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Num. jugador: 14
Nombre del jugador: Jacee Thirkins
MVP ganador: 1998
Fin de los detalles ....

Num. jugador: 35
Nombre del jugador: Lander Díaz
MVP ganador: 2002
Fin de los detalles ....

Num. jugador: 14
Nombre del jugador: Jacee Thirkins
MVP ganador: 1999
Fin de los detalles ....

Num. jugador: 35
Nombre del jugador: Lander Díaz
MVP ganador: 2001
Fin de los detalles ....

Num. jugador: 14
Nombre del jugador: Omán Rodríguez
MVP ganador: 1997
Fin de los detalles ....

Num. jugador: 35
Nombre del jugador: Larry Simpkins
MVP ganador: 2003
Fin de los detalles ....

Num. jugador: 14
Nombre del jugador: Jacee Thirkins
MVP ganador: 1996
Fin de los detalles ....

Num. jugador: 35
Nombre del jugador: Lander Díaz
MVP ganador: 2002
Fin de los detalles ....

Num. jugador: 14
Jugador Nombre: Stephen Jabinzki
MVP ganador: 1999
Fin de los detalles ....

Num. jugador: 35
Nombre del jugador: Lander Díaz
MVP ganador: 2004
Fin de los detalles ....

Num. jugador: 35
Nombre del jugador: Larry Simpkins
MVP ganador: 2005
Fin de los detalles ....


Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
abierto (INFILE, "$ de entrada");
open (SALIDA, "> $ OUTFILE");

mi player_count%;
mi @ all_player;

while ($ cur_rec \u003d <INFILE>)
(
if ($ cur_rec \u003d ~ m / Reproductor Nombre /)
(
@ registro \u003d split (/:/, $ cur_rec);
$ playername \u003d "$ registro [1]". "$ registro [2]";
Pulsar (@ all_player, $ playername);
)
)

@ @ sorted_player \u003d tipo all_player;
por $ jugador (@ sorted_player)
(
if ( "$ jugador" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
algo más
(
$ player_count) ($ centro \u003d $ jugador;
$ ctr \u003d 1;
)
\u003d $ $ prev_player jugador;
)

$ país \u003d 0;
por $ contar (teclas player_count%)
(
if ($ país <\u003d 4)
(
print "\ nPlayer: $ player_count) ($ contar MVP premios: $ contar \ n";
$ país + +;
)
algo más
(
$ player_count) ($ jugador \u003d $ centro;
$ ctr \u003d 0;
)
)

close (PRUEBA);
close (SALIDA);


Los resultados esperados (debe estar en el orden que tiene la mayoría de premios en total):


Top5 MVP ganadores
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Lander Díaz
Jacee Thirkins
Larry Simpkins
Omán Rodríguez
Stephen Jabinzki