hogyan kell csinálni rendezni a perl?

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

Szia,
Tud valaki tanácsot ad, hogyan kell helyesen my script pls?
Nem találom a megfelelő kimeneti \u003d (

Adatait:

Naplófájl
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Játékos szám: 14
Játékos neve: Jacee Thirkins
MVP-győztes: 1998
Vége a részletek ....

Játékos szám: 35
Játékos neve: Lander Diaz
MVP-győztes: 2002
Vége a részletek ....

Játékos szám: 14
Játékos neve: Jacee Thirkins
MVP-győztes: 1999
Vége a részletek ....

Játékos szám: 35
Játékos neve: Lander Diaz
MVP-győztes: 2001
Vége a részletek ....

Játékos szám: 14
Játékos neve: Omán Rodriguez
MVP-győztes: 1997
Vége a részletek ....

Játékos szám: 35
Játékos neve: Larry Simpkins
MVP-győztes: 2003
Vége a részletek ....

Játékos szám: 14
Játékos neve: Jacee Thirkins
MVP-győztes: 1996
Vége a részletek ....

Játékos szám: 35
Játékos neve: Lander Diaz
MVP-győztes: 2002
Vége a részletek ....

Játékos szám: 14
Játékos neve: Stephen Jabinzki
MVP-győztes: 1999
Vége a részletek ....

Játékos szám: 35
Játékos neve: Lander Diaz
MVP-győztes: 2004
Vége a részletek ....

Játékos szám: 35
Játékos neve: Larry Simpkins
MVP-győztes: 2005
Vége a részletek ....

Script
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
open (INFILE, "$ bemeneti_fájl");
open (OUTPUT, "> $ kimenet);

my% player_count;
my @ all_player;

while ($ cur_rec \u003d <INFILE>)
(
if ($ cur_rec \u003d ~ m / Játékos neve /)
(
@ rekord \u003d split (/:/, $ cur_rec);
$ játékosnév \u003d "$ rekord [1]". "$ rekord [2]";
push (@ all_player, $ játékosnév);
)
)

@ sorted_player \u003d sort @ all_player;
dollárért lejátszó (@ sorted_player)
(
if ( "$ játékos" eq "$ prev_player" | | $ ctr \u003d\u003d 0)
(
$ ctr + +;
)
vagy
(
player_count $ ($ ua) \u003d $ player;
$ ua \u003d 1;
)
$ \u003d $ prev_player lejátszó;
)

$ országok: \u003d 0;
A $ count (keys% player_count)
(
if ($ országok: <\u003d 4) A
(
print "\ nPlayer: $ player_count ($ count) MVP díjak: $ count \ n";
$ országok: + +;
)
vagy
(
($ $ player_count játékos) \u003d $ ctr;
$ ctr \u003d 0;
)
)

close (teszt);
Close (Output);

Várt kimenet (kellene, hogy van, aki a legtöbb díjat összesen):

Top5 MVP nyertesek
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Lander Diaz
Jacee Thirkins
: Larry Simpkins
Omán Rodriguez
: Stephen Jabinzki

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

Kód:

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;

Több, UNIX és Linux fórum témák Ön által talált Hasznos
Szál	Thread Starter	Fórum	Válaszok	Utolsó hozzászólás
perl sort	summer_cherry	Shell programozás és Scripting	1	07-10-2008 05:09 AM
Rendezés és egyedülálló a Perl	deepakwins	Shell programozás és Scripting	20	02-11-2008 09:25 PM
rendezési funkció perl	DILEEP410	Shell programozás és Scripting	2	09-14-2007 09:03 AM
Uniq sort, és a perl	reggiej	Shell programozás és Scripting	4	05-18-2006 11:46 PM
Rendezés fájlt perl	annececile	Shell programozás és Scripting	4	06-21-2002 09:52 AM

Téma eszközök	Keresés a téma
Show Nyomtatható verzió Küldés e-mailben	Keresés a téma: Részletes keresés
Megjelenítési módok	Rate this thread
Váltás Linear Mode Hibrid üzemmód Switch to Threaded Mode	Rate this thread:


	Powered by