Helloやアメリカ合衆国へようこそ！ UNIXおよびLinuxフォーラム！訪問し、当社のグローバルコミュニティに参加いただきありがとうございます。
|
Helloやアメリカ合衆国へようこそ！ UNIXおよびLinuxフォーラム！訪問し、当社のグローバルコミュニティに参加いただきありがとうございます。
|
|
Googleのunix.com
|
|||||||
| シェルプログラミングとスクリプティング KSH 、 CSH 、 shに、 bashの、はPerl 、 PHPは、削除するsed 、 Awkの、他のシェルスクリプトやシェルスクリプト言語についての質問の投稿はこちら。 |
その他のUNIXおよびLinuxフォーラムトピックは参考にすること
|
||||
| スレッド | スレッドスターター | フォーラム | 返信 | 最後の投稿 |
| perlのソート | summer_cherry | シェルプログラミングとスクリプティング | 1 | 2008年7月10日 05:09午前 |
| 並べ替えて独自のPerlで | deepakwins | シェルプログラミングとスクリプティング | 20 | 2008年2月11日 09:25午後 |
| のソート機能はperl | DILEEP410 | シェルプログラミングとスクリプティング | 2 | 2007年9月14日 09:03午前 |
| perlのソートやuniq | reggiej | シェルプログラミングとスクリプティング | 4 | 2006年5月18日 11:46午後 |
| perlのファイルの並べ替え | annececile | シェルプログラミングとスクリプティング | 4 | 2002年6月21日 09:52午前 |
 |
を搭載 
|
|
|
LinkBack | スレッドツール | このスレッドを検索 | スレッドを評価 | 表示モード |
|
|
2008年7月17日
|
||||
|
||||
|
Perlでソートする方法は？
やあ、
pls人はどのようにスクリプトを修正するために助言することはできますか？ 私は\u003dには、適切な出力が得られない（ 下記の詳細： ログファイル \u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d プレイヤー数： 14 選手名： Jacee Thirkins MVPの受賞者： 1998 詳細を完.... プレイヤー数： 35 選手名：ランダーディアス MVPの受賞者： 2002 詳細を完.... プレイヤー数： 14 選手名： Jacee Thirkins MVPの受賞者： 1999 詳細を完.... プレイヤー数： 35 選手名：ランダーディアス MVPの受賞者： 2001 詳細を完.... プレイヤー数： 14 選手名：オマーンロドリゲス MVPの受賞者： 1997 詳細を完.... プレイヤー数： 35 選手名：ラリーシンプキンス MVPの受賞者： 2003 詳細を完.... プレイヤー数： 14 選手名： Jacee Thirkins MVPの受賞者： 1996 詳細を完.... プレイヤー数： 35 選手名：ランダーディアス MVPの受賞者： 2002 詳細を完.... プレイヤー数： 14 選手名：スティーブンJabinzki MVPの受賞者： 1999 詳細を完.... プレイヤー数： 35 選手名：ランダーディアス MVPの受賞者： 2004 詳細を完.... プレイヤー数： 35 選手名：ラリーシンプキンス MVPの受賞者： 2005 詳細を完.... スクリプト \u003d\u003d\u003d\u003d\u003d\u003d\u003d オープン（ INFILE 、 " $ inputfile " ） ; オープン（出力、 " > $ outfile " ） ; 私％ player_count ; 私のall_player @ ; （ $ \u003d <INFILE> cur_rec ）は、 （ （ $ \u003d 〜メートル/プレーヤーの名前cur_rec / ） （ @記録\u003d分割(/:/, $ cur_rec ） ; $ playername \u003d " $記録[ 1 ] " 。 " $記録[ 2 ] " ; all_player （ @を押して、 $ playername ） ; ） ） @ @ \u003d sorted_player all_playerソート; ドルのプレーヤーsorted_player （ ） @ （ （ " $プレーヤー"式" $ prev_player " | | $クリック率\u003d\u003d 0 ） （ $クリック率+ + ; ） その他の （ $ （ $クリック率） \u003d $ player_count選手; $のCTR \u003d 1 ; ） $ prev_player \u003d $プレーヤー; ） $ countr \u003d 0 ; ドルの数（キー％ player_count ） （ （ $ countr < \u003d 4 ） （ " \ nPlayer ： $ player_count （ $カウント）のMVP賞： $カウント印刷\ Ñ " ; $ countr + + ; ） その他の （ $ （ $ player_count選手） \u003d $クリック率; $のCTR \u003d 0 ; ） ） 近い（テスト） ; 閉じる（出力） ; 出力予定（順序では、合計で最も受賞した）でなければなりません： Top5のMVP受賞者 \u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d ランダーディアス Jacee Thirkins ラリーシンプキンス オマーンロドリゲス スティーブンJabinzki |
|
2008年7月17日
|
||||
|
||||
|
コード：
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;
|
ハイブリッドモード
