comment faire en sorte perl?

gholdbhurg · #1 (**permalink**) 07-17-2008

Salut,
Peut-on conseiller la manière de corriger mon script pls?
Je ne reçois pas le bon de sortie \u003d (

Détails ci-dessous:

Logfile
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Player Num: 14
Nom du lecteur: Jacee Thirkins
MVP vainqueur: 1998
Fin de détails ....

Player Num: 35
Nom du lecteur: Lander Diaz
MVP vainqueur: 2002
Fin de détails ....

Player Num: 14
Nom du lecteur: Jacee Thirkins
MVP vainqueur: 1999
Fin de détails ....

Player Num: 35
Nom du lecteur: Lander Diaz
MVP vainqueur: 2001
Fin de détails ....

Player Num: 14
Nom du joueur: Oman Rodriguez
MVP vainqueur: 1997
Fin de détails ....

Player Num: 35
Nom du joueur: Larry Simpkins
MVP vainqueur: 2003
Fin de détails ....

Player Num: 14
Nom du lecteur: Jacee Thirkins
MVP vainqueur: 1996
Fin de détails ....

Player Num: 35
Nom du lecteur: Lander Diaz
MVP vainqueur: 2002
Fin de détails ....

Player Num: 14
Nom du joueur: Stephen Jabinzki
MVP vainqueur: 1999
Fin de détails ....

Player Num: 35
Nom du lecteur: Lander Diaz
MVP vainqueur: 2004
Fin de détails ....

Player Num: 35
Nom du joueur: Larry Simpkins
MVP vainqueur: 2005
Fin de détails ....

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

my% player_count;
my @ all_player;

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

@ sorted_player \u003d sort @ all_player;
pour $ lecteur (@ sorted_player)
(
if ( "$ player" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
autre
(
$ ($ player_count ctr) \u003d $ joueur;
$ ctr \u003d 1;
)
prev_player $ \u003d $ joueur;
)

countr $ \u003d 0;
for $ count (keys% player_count)
(
if ($ countr <\u003d 4)
(
print "\ nPlayer: $ player_count ($ count) MVP prix: $ count \ n";
countr $ + +;
)
autre
(
$ ($ player_count joueur) \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (TEST);
close (OUTPUT);

Résultats escomptés (qui devrait être dans l'ordre qui a obtenu le prix le plus au total):

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

KevinADC · #2 (**permalink**) 07-17-2008

Code:

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;

Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-être utile
Fil	Thread Starter	Forum	Réponses	Last Post
type perl	summer_cherry	De programmation et de script Shell	1	07-10-2008 05:09 AM
Tri et unique en Perl	deepakwins	De programmation et de script Shell	20	02-11-2008 09:25 PM
trier en fonction perl	DILEEP410	De programmation et de script Shell	2	09-14-2007 09:03 AM
trier et uniq en perl	reggiej	De programmation et de script Shell	4	05-18-2006 11:46 PM
Tri de fichier en perl	annececile	De programmation et de script Shell	4	06-21-2002 09:52 AM

Thread Tools	Recherche sur ce Thread
Voir la version imprimable Envoyer cette page	Recherche sur ce Thread: Recherche avancée
Modes d'affichage	Rate this thread
Switch to Linear Mode Mode Hybrid Switch to Threaded Mode	Rate this thread:


	Powered by