Как сделать сортировку в Perl?

gholdbhurg · #1 (**Постоянная ссылка**) 07-17-2008

Привет,
Может ли кто-либо сообщить о том, как исправить мою сценария PLS?
Я не получаю правильный вывод \u003d (

Подробности ниже:

LOGFILE
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Игрок Num: 14
Имя игрока: Jacee Thirkins
MVP победитель: 1998
Конец подробности ....

Игрок Num: 35
Имя игрока: Ландер Диас
MVP победитель: 2002
Конец подробности ....

Игрок Num: 14
Имя игрока: Jacee Thirkins
MVP победитель: 1999
Конец подробности ....

Игрок Num: 35
Имя игрока: Ландер Диас
MVP победитель: 2001
Конец подробности ....

Игрок Num: 14
Имя игрока: Оман Родригес
MVP победитель: 1997
Конец подробности ....

Игрок Num: 35
Имя игрока: Ларри Simpkins
MVP победитель: 2003
Конец подробности ....

Игрок Num: 14
Имя игрока: Jacee Thirkins
MVP победитель: 1996
Конец подробности ....

Игрок Num: 35
Имя игрока: Ландер Диас
MVP победитель: 2002
Конец подробности ....

Игрок Num: 14
Имя игрока: Стивен Jabinzki
MVP победитель: 1999
Конец подробности ....

Игрок Num: 35
Имя игрока: Ландер Диас
MVP победитель: 2004
Конец подробности ....

Игрок Num: 35
Имя игрока: Ларри Simpkins
MVP победитель: 2005
Конец подробности ....

Сценарист
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
OPEN (INFILE, "$ inputfile");
OPEN (OUTPUT, "> $ outfile");

моя player_count%;
моя @ all_player;

в то время как ($ cur_rec \u003d <INFILE>)
(
если ($ cur_rec \u003d ~ м / Player Имя /)
(
@ \u003d отчет разделен (/:/, $ cur_rec);
$ playername \u003d "$ отчете [1]". "$ отчете [2]";
нажимаем (@ all_player, $ playername);
)
)

sorted_player @ \u003d @ all_player рода;
за $ игрок (@ sorted_player)
(
если ( "$ игрока" EQ "$ prev_player" | | $ CTR \u003d\u003d 0)
(
$ CTR + +;
)
еще
(
$ player_count ($ CTR) \u003d $ игрока;
$ CTR \u003d 1;
)
$ \u003d $ prev_player игрока;
)

$ countr \u003d 0;
за $ кол (ключи player_count%)
(
если ($ countr <\u003d 4)
(
Версия для печати "\ nPlayer: $ player_count $ (COUNT) MVP награды: $ рассчитывать \ N";
$ countr + +;
)
еще
(
$ player_count ($ игрока) \u003d $ CTR;
$ CTR \u003d 0;
)
)

CLOSE (ТЕСТ);
CLOSE (OUTPUT);

Ожидаемые результаты (должно быть в порядке, который получил большинство наград в общей сложности):

Top5 MVP победителей
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
Ландер Диас
Jacee Thirkins
Ларри Simpkins
Оман Родригес
Стивен Jabinzki

KevinADC · #2 (**Постоянная ссылка**) 07-17-2008

Код:

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;

Подробнее UNIX и Linux Темы форума можно найти полезные
Нить	Резьба для начинающих	Форум	Ответы	Последнее сообщение
Perl сортировать	summer_cherry	Shell программирование и сценарии	1	07-10-2008 05:09 AM
Сортировка и уникального в Perl	deepakwins	Shell программирование и сценарии	20	02-11-2008 09:25 PM
функция сортировки в Perl	DILEEP410	Shell программирование и сценарии	2	09-14-2007 09:03 AM
сортировки и Uniq в Perl	reggiej	Shell программирование и сценарии	4	05-18-2006 11:46 PM
Сортировка файлов в Perl	annececile	Shell программирование и сценарии	4	06-21-2002 09:52 AM

Резьба Инструменты	Искать в этом Thread
Показать Версия для печати Email эта страница	Искать в этом Thread: Расширенный поиск
Режимы дисплея	Оценить эту ветку
Переход к линейной режим Гибридный режим Перейти на режим Нитевидный	Оценить эту ветку:


	Powered By