Oi,
Alguém pode aconselhar a forma de corrigir o meu script pls?
Não estou recebendo a saída correta \u003d (

Detalhes a seguir:

Logfile
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Jogador Num: 14
Nome do player: Jacee Thirkins
MVP vencedor: 1998
Fim de detalhes ....

Jogador Num: 35
Player Nome: Lander Diaz
MVP vencedor: 2002
Fim de detalhes ....

Jogador Num: 14
Nome do player: Jacee Thirkins
MVP vencedor: 1999
Fim de detalhes ....

Jogador Num: 35
Player Nome: Lander Diaz
MVP vencedor: 2001
Fim de detalhes ....

Jogador Num: 14
Nome do player: Omã Rodriguez
MVP vencedor: 1997
Fim de detalhes ....

Jogador Num: 35
Nome do player: Larry Simpkins
MVP vencedor: 2003
Fim de detalhes ....

Jogador Num: 14
Nome do player: Jacee Thirkins
MVP vencedor: 1996
Fim de detalhes ....

Jogador Num: 35
Player Nome: Lander Diaz
MVP vencedor: 2002
Fim de detalhes ....

Jogador Num: 14
Player Nome: Stephen Jabinzki
MVP vencedor: 1999
Fim de detalhes ....

Jogador Num: 35
Player Nome: Lander Diaz
MVP vencedor: 2004
Fim de detalhes ....

Jogador Num: 35
Nome do player: Larry Simpkins
MVP vencedor: 2005
Fim de detalhes ....


Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
open (INFILE, "$ inputfile");
open (OUTPUT, "> $ OUTFILE");

meu player_count%;
my @ all_player;

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

@ @ sorted_player \u003d espécie all_player;
por US $ jogador (@ sorted_player)
(
if ( "$ player" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
diferente
(
player_count $) ($ ctr \u003d $ jogador;
$ ctr \u003d 1;
)
$ $ \u003d prev_player jogador;
)

$ país \u003d 0;
por US $ count (chaves player_count%)
(
if ($ país <\u003d 4)
(
print "\ nPlayer: $ player_count $ (count) MVP prêmios: $ count \ n";
+ + $ país;
)
diferente
(
player_count $) ($ jogador \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (teste);
close (OUTPUT);


Esperado de saída (deve estar em ordem, que tem a mais prêmios no total):


Top5 MVP vencedores
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Lander Diaz
Jacee Thirkins
Larry Simpkins
Omã Rodriguez
Stephen Jabinzki