Art, wie man in Perl? - Das UNIX-und Linux-Foren

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

Hi,
Kann mir jemand beraten, wie man richtig mein Skript pls?
Ich bin nicht die richtigen Ausgang \u003d (

Details unter:

Logfile
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Player Num.: 14
Player Name: Jacee Thirkins
MVP-Gewinner: 1998
Ende der Details ....

Player Num.: 35
Player Name: Lander Diaz
MVP-Gewinner: 2002
Ende der Details ....

Player Num.: 14
Player Name: Jacee Thirkins
MVP-Gewinner: 1999
Ende der Details ....

Player Num.: 35
Player Name: Lander Diaz
MVP-Gewinner: 2001
Ende der Details ....

Player Num.: 14
Player Name: Oman Rodriguez
MVP-Gewinner: 1997
Ende der Details ....

Player Num.: 35
Player Name: Larry Simpkins
MVP-Gewinner: 2003
Ende der Details ....

Player Num.: 14
Player Name: Jacee Thirkins
MVP-Gewinner: 1996
Ende der Details ....

Player Num.: 35
Player Name: Lander Diaz
MVP-Gewinner: 2002
Ende der Details ....

Player Num.: 14
Player Name: Stephen Jabinzki
MVP-Gewinner: 1999
Ende der Details ....

Player Num.: 35
Player Name: Lander Diaz
MVP-Gewinner: 2004
Ende der Details ....

Player Num.: 35
Player Name: Larry Simpkins
MVP-Gewinner: 2005
Ende der Details ....

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

my% player_count;
my @ all_player;

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

@ @ sorted_player \u003d Art all_player;
für $ Spieler (@ sorted_player)
(
if ( "$ player" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
sonst
(
$ player_count ($ ctr) \u003d $ Spieler;
$ ctr \u003d 1;
)
$ \u003d $ prev_player Spieler;
)

$ countr \u003d 0;
für $ count (Schlüssel player_count%)
(
if ($ countr <\u003d 4)
(
print "\ nPlayer: $ player_count ($ count) MVP-Auszeichnungen: $ count \ n";
$ countr + +;
)
sonst
(
$ ($ player_count Player) \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (TEST);
close (OUTPUT);

Erwartete Ausgabe (sollte, um die meisten haben die Preise in insgesamt):

Top5 MVP-Gewinner
\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;

Mehr UNIX-und Linux-Forum Themen Vielleicht finden Sie hilfreiche
Faden	Thread Starter	Forum	Antworten	Last Post
perl Art	summer_cherry	Shell Programmierung und Scripting	1	07-10-2008 04:09 AM
Sortieren und einzigartig in Perl	deepakwins	Shell Programmierung und Scripting	20	02-11-2008 09:25 PM
Art-Funktion in Perl	DILEEP410	Shell Programmierung und Scripting	2	09-14-2007 08:03 AM
Art und uniq in perl	reggiej	Shell Programmierung und Scripting	4	05-18-2006 10:46 PM
Sortieren Datei in Perl	annececile	Shell Programmierung und Scripting	4	06-21-2002 08:52 AM

Thread Tools	Suche diesen Thread
Zeige Druckversion E-Mail Diese Seite	Suche diesen Thread: Erweiterte Suche
Anzeige-Modi	Rate this thread
Wechseln Sie in den Linear-Modus Hybrid-Modus Switch to Threaded Mode	Rate this thread:


	Powered by