Perlデータ構造

Question

私はPerlデータ構造に関する質問があります。

ファイル1.txtには、次のフィールドとデータがあります。

Student rollno class 

John,23,2 
Mike,25,2 
Ray,78,3 
Tim,30,3 
Mark,22,2 

あなたはPerlで出力を印刷することができますどのように助けてくださいことはできますか？

ファイルを分割して配列を取得していますが、結果セットにつまずいています。下のように出力を得る方法を教えてください。

2= john, mike, mark 
3= ray, tim 

結果セットを結合するデータ構造が必要です。

Answer 1

それぞれのキーとして3番目の列を使用している場合は、Hash of Arraysを設定してデータを管理できます。最初にファイルを読み込み、コンマでフィールドを配列に分割します。次に、リンクされたドキュメントの "配列のハッシュの生成"の例の28行で説明されているようにデータ構造を設定します。一度まとめておけば、リンクされている例のように、すべてを元に戻すだけで済みます。

その戦略の急ごしらえの例は、この（私はスクリプトの __DATA__セクション内のデータを持っているのではなく、ファイルから読み込むことに注意してください）のように見えるかもしれません

：

#!/usr/bin/perl 
use warnings; 
use strict; 

my %results; 
while (<DATA>) { 
    chomp; 
    my @elems = split(/,/, $_); 
    push(@{$results{$elems[2]}}, $elems[0]); 
} 

for my $key (sort { $a <=> $b } keys %results) 
    print "$key = "; 
    print join(', ', @{$results{$key}}), "\n"; 
} 

__DATA__ 
John,23,2 
Mike,25,2 
Ray,78,3 
Tim,30,3 
Mark,22,2 

出力は、このようなルックスを生成しました：

2 = John, Mike, Mark 
3 = Ray, Tim